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Prefacio 


Pràcticamente la ùnica rama de la programación del Spectrum que no està 
detalladamente estudiada por la mayorla de los libros es la de la programación 
avanzada en lenguaje màquina del Spectrum. Con este libro espero remediar està 
situación. 

Por programación "avanzada" entiendo el tipo de lenguaje de màquina de alto 
nivel que hay detràs de muchos de los juegos de màs éxito del Spectrum. De 
hecho, algunas de las técnicas que se utilizan en este libro son completamente 
originales y diferentes de cualquier cosa que se haya visto a la hora de escribir los 
juegos del Spectrum. Como ejempio, cito las rutinas en color de alta resolución y laserie 
de rutinas que le permiten conseguir imàgenes en pantalla completa màs allà del borde. 
Tampoco estos efectos especiales se han visto en publico antes. 

Es de justicia advertirle que este libro no se dirige a los principiantes, hay muchas 
publicaciones buenas que ya estàn disponibles para recién llegados al lenguaje 
màquina del Spectrum, y que suponen un conocimiento completo del código de 
instrucciones Z-80 desde el principio. Esto hace que me sea posible llevarle hasta los 
auténticos confines de la programación del Spectrum, llegando al grado de un arte, 
ampliàndolos segun avanzamos. Espero que disfrutarà y sacarà provecho de la 
experiencia. 

Me gustarla agradecer las contribuciones de las siguientes personas: 
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• Marna y papà, por 18 anos de una paciencia inmensa. 

• Mi editor, Fred Milgram, y todos aquellos implicados en el trabajo de 
editar este libro. 

• John, Deb, Brian, Dermot y Nobby por su apoyo y aliento. 

Finalmente dedico este libro al seis de tréboles, y esto se conoce por tener un 
buen triunfo. 


DAVID M. WEBB 
Exeter College 
Oxford 

Febrero de 1984 



Introducción 


Suposiciones a tener en cuenta para el uso de este libro 

E1 tìtulo mismo de este libro indica que no se propone ensenar el lenguaje 
elemental de la màquina. Estoy suponiendo que el lector por lo menos tiene un 
dominio de los elementos fundamentales de, y preferiblemente cierta experiencia 
en, la programación del Z-80. Sin embargo, no es esencial haber aprendido ni 
haber practicado el lenguaje de màquina del Spectrum en profundidad, todas 
las peculiaridades que son especlficas del Spectrum se describiràn con detalle, sin 
suponer cualquier conocimiento previo de ellas. 

Para escribir cualquier cosa que no sea un programa cortisimo en lenguaje 
màquina se debe utilizar un ensamblador y, por tanto, me figuro que ya tiene 
uno o que està a punto de comprar uno. Todos los listados en este libro estàn 
en lenguaje ensamblador, pero deliberadamente he restringido el empieo de 
"seudo-instrucciones" es decir, las que no estàn en el conjunto de instrucciones 
estàndar del Z-80, valiéndome de las operaciones ORG, DEFB, DEFW y EQU 
que cualquier ensamblador que se precie deberia tener. 

Su ensamblador debe poder calcular hacia delante y hacia detràs los saltos 
relativos y trabajar con etiquetas de preferiblemente seis o màs caràcteres de 
longitud. 

En el encabezamiento de cada listado hay un grupo de comentarios que le 
informan de cualquier paràmetro que los registros deban contener al entrar en la 
rutina. También le informan del contenido de los registros a la salida y de aque- 
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llos que permanecen inalterados. A no ser que se indique lo contrario, puede 
suponer que los registros alternativos AF', BC', DE', HL', el punterò de la pila SP, 
los registros de indices IX e IY y el registro del vector de interrupción I son 
todos conservados por la rutina. 

Al mismo riempo, a no ser que se indique lo contrario, debe suponer que los 
registros A, F, B, C, D, E, H y L se destruyen todos al riamar a la rutina. El 
contador de programa, por supuesto, se conserva en la pila por un CALL. 

La gran cantidad de comentarios explicativos que se incorporan en todas 
las rutinas salvo en las mas sencillas de este libro estàn para su provecho, con 
la esperanza de que pueda aprender gracias al ejemplo. Son, por supuesto, comple¬ 
tamente no-funcionales, y pueden omitirse cuando introduzca los listados en su 
ordenador exactamente corno omitiria las sentencias BASIC REM para ahorrar 
memoria. 

En este libro, cualquier valor numèrico estarà expresado por defecto en de¬ 
cimai, a no ser que esté precedido por un signo "#" o de la abreviatura 
"Hex" para hexadecimal, o por la palabra "binario" cuando se utiliza la base dos. 

Ahora posee los conocimientos necesarios para utilizar el resto de este libro. 
Sólo un consejo, se pretende que el que empiee el libro lo lea de "principio 
a fin", ya que muchos de los programas posteriores contienen referencias al 
material publicado anteriormente en el libro. 
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1 

Direccionamiento 
de la pantalla 


Empiezo este capitalo con la explicación de lo que es, con frecuencia, una 
fuente de confusión. En todo este libro diré que la pantalla del Spectrum 
consta de 24 LINEAS, conteniendo cada una de ellas ocho FILAS de pixels 
(puntos gràficos), en vez de 24 filas de ocho lineas de pixels. De està forma 
vemos que el àrea de texto de la pantalla tiene 24 x 8 = 192 filas. 

Una vez aclarado este punto tècnico, continuaré con una discusión de 
còrno se calcula la dirección del texto de cualquiera de las 768 (24 x 32) 
CELDILLAS de la pantalla. 

No puedo olvidarme de mencionar el detalle de que el archivo de pantalla 
està definido de una forma poco usuai en la memoria. Un ràpido POKE con 
este programa le mostrarà lo que quiero decir. 

10 REM DEMOSTRACION DE DISPOSICION DEL TEXTO EN MEMORIA 
20 FOR A = 0 TO 6143 
30 POKE 16384+A.255 
40 NEXT A 
50 PAUSE 0 

De hecho el archivo de pantalla reside en las direcciones #4000 hasta 
#57FF de la siguiente manera. Cada fila tiene 32 columnas y cada columna 
tiene un ancho de 8 pixels. Puesto que hay 8 bits en un octeto, cada columna 
de cada fila està representada por un octeto. Los 32 octetos de cada fila son, corno 
puede fìgurarse, almacenados consecutivamente en la memoria, leyéndose de 
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izquierda a derecha. Lo primero que se almacena (dirección #4000) es la fila 0 de 
la linea 0. Luego viene la fila 0 de la linea 1, y asi sucesivamente hasta la 
fila 0 de la linea 7. Luego, en vez de encontrar la fila 0 de la linea 8, tenemos la 
fila 1 de la linea 0, hasta la fila 1 de la linea 7. E1 modelo continua hacia abajo has¬ 
ta la fila 7 de la linea 6, y luego la fila 7 de la linea 7. En este punto, han sido ocu- 
pados 2K de la memoria, y nos encontramos que toda la tercera parte de la 
pantalla tiene su zona homóloga en memoria a modo de mapa. 

E1 modelo arriba descrito se repite para los tercios de en medio y de la parte 
de abajo de la pantalla, consumiendo cada uno 2K de RAM. Una consecuen- 
cia bastante buena de tener los tres tercios de la pantalla en bloques separados 
de la memoria es que podemos llevar a cabo comandos SAVE... SCREEN$ 
parciales. Los numeros requeridos para esto son los siguientes: 



DIRECCIÓN 

DE COMIENZO 

LONGITUDES 

TERCIO DE ARRIBA 

16384 

2K = 2.048 OCTETOS 

CENTRAL 

18432 

4K = 4.096 OCTETOS 

DE ABAJO 

20480 

6K = 6.144 OCTETOS 


Asi para SALVAR los dos tercios de abajo de la pantalla (de una longi- 
tud de 4K) 


SAVE "(NOMBRE)"CODE 18432,4096 

Puesto que el archivo de pantalla està contenido en 8K de RAM desde 
#4000, los tres bits de mas a la izquierda de cualquier dirección contenida en 
él son siempre 010. La configuración completa està compuesta corno se ve 
en este diagrama: 


Dirección de archivo de pantalla 

OCTETO-MAYO-PESO OCTETO-MENOR-PESO 



NUMERO DE LINEA (0 A 23) 


La ventaja de este esquema es que podemos atravesar las direcciones de 
las ocho filas de cualquier celdilla de la pantalla simplemente con incrementar 
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el octeto de mayor peso de la dirección originai, en vez de anadir 32 a la direc¬ 
tion entera, corno haria falta en un esquema "normal". Esto permite conseguir 
un toque adicional de velocidad en las rutinas impresoras de una sola celdilla. 

Ahora, le oigo preguntar: 'VCuàl es la forma mas fàcil para calcular la direc¬ 
ción de una celdilla?" Bueno, podria hacer cosas mucho peores que echar mano 
de està rutina, llamada DF-LOC por localización de archivo de pantalla (Display 
File LOCation). Hay que tener en cuenta que la rutina devolverà una dirección 
lògica para cualquier nùmero de linea que se introduzca en el registro B, tanto 
si està en el intervalo de 0-23 corno si no. Esto puede ser util si, por ejemplo, 
quiere trabajar hacia abajo desde el principio lògico de un bloque de caracteres 
2 x 2, la linea superior del cual està fuera de la parte superior de la pantalla. 
Sólo tiene que introducir B = 255 (para —1, el nùmero de la linea por encima 
de la pantalla) y llamar a DF-LOC corno siempre. 

10 ;ENTRADA: B=LINEA,C=C0LUMNA 

2 0 ; SE CONSERVAN : BC, DE 

30 ;SALIDA : HL = DIRECCION EN EL ARCHIVO DE PANTALLA, A=L 


87A1 

78 

4 0 DF LOC 

LD 

A, B 

87A2 

E6f8 

50 

AND 

#F8 

87A4 

C640 

60 

ADD 

A,#40 

87A6 

67 

70 

LD 

H, A 

87A7 

78 

80 

LD 

A, B 

87A8 

E607 

90 

AND 

7 

87AA 

0F 

100 

RRCA 


87AB 

0F 

110 

RRCA 


87AC 

0F 

120 

RRCA 


87AD 

81 

130 

ADD 

A,C 

87AE 

6F 

140 

LD 

L, A 

87AF 

C9 

150 

RET 



Para convertir la rutina en una especie de PRINT AT (IMPRIME EN) 
puede anadir la linea 

LD (# 5C84), HL 

antes de la sentencia RET, para cargar en la variable del sistema DF-CC la 
siguiente dirección, que serà utilizada por alguna rutina de impresión. 

Antes de seguir con una discusión del archivo de atributos, daré una ruùna 
para borrar el archivo de pantalla, CLS-DF. Trabaja Renando el primer octeto 
con un cero y luego utilizando la poderosa instrucción LDIR para "copiar" 
el contenido de dicho octeto al que està encima de él, repitiendo 17FF Hex, 
veces para llenar todo el archivo de pantaRa con ceros. Està tècnica debe utiRzarse 
siempre que se necesite Renar un bloque de memoria con un octeto en particular. 

Observe que el empieo de la instrucción: 
ld (hl) ,l (ya que L = 0) 

es màs ràpido y ocupa menos memoria que: 

LD (HL),0 
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10 ; SE CONSERVA : A 
2 0 ; SALIDA:BC=0,DE = #5800,HL = #57FF 
30 ; 


873B 

210040 

40 CLS DF 

LD 

HL,#4000 

873E 

01FF17 

50 

LD 

BC,#17 F F 

8741 

75 

60 

LD 

(HL),L 

8742 

54 

70 

LD 

D, H 

8743 

1E01 

80 

LD 

E, 1 

8745 

EDB0 

90 

LDIR 


8747 

C9 

100 

RET 



Obviamente y de la misma manera que el comando parcial SAVE SCREEN$, 
descrito anteriormente en este capitello, podrla adaptar la rutina para borrar 
sólo una parte de la pantalla. Algunos numeros utiles son estas direcciones y 
longitudes hexadecimales. 



DIRECCIÓN 

VALOR 
PARA BC 

TERCIO SUPERIOR 

#4000 

1 TERCIO 

#07FF 

CENTRAL 

#4800 

2 TERCIOS 

#0FFF 

INFERIOR 

#5000 

PANTALLA ENTERA 

#17FF 


Asl que, para borrar los dos tercios inferiores de la pantalla, utilice las llneas 

LD HL,#4800 
LD BC,#0FFF 


Los atributos del archivo de pantalla del Spectrum son aquellos octetos que 
son responsables de los colores de INK (tinta) y PAPER (papel) y del estado de 
BRIGHT (brillo) y FLASE1 (parpadeo) en cada celdilla de caràcter de la pan¬ 
talla. Por tanto, hay 768 octetos en el archivo de atributos y estàn dispuestos 
lògicamente corno 24 grupos de 32 octetos, uno para cada columna, leyéndose 
de izquierda a derecha a través de la pantalla. 

La siguiente rutina encontrarà la dirección de los atributos de cualquier 
celdilla de la pantalla y se llama ATTLOC, por localizador de atributo (ATTri- 
bute LOCator). 


10 ;ENTRADA : B = LINEA, C = C0LUMNA 
20 ;SE CONSERVAN: BC,DE 

30 ;SALIDA : HL=DIRECCION EN EL ARCHIVO DE ATRIBUTOS, A=L 


88B5 

78 

40 ATTLOC 

LD 

A, B 

88b6 

CB2F 

50 

SRA 

A 

88b8 

CB2F 

60 

SRA 

A 

88bA 

CB2F 

70 

SRA 

A 

88BC 

C658 

80 

ADD 

A,#58 

88be 

67 

90 

LD 

H, A 

88bf 

78 

100 

LD 

A, B 

88C0 

E 6 07 

1 1 0 

AND 

7 

88C2 

0F 

120 

RRCA 


88C3 

0F 

130 

RRCA 


88c4 

0F 

140 

RRCA 


88C5 

81 

150 

ADD 

A, C 

88c6 

6f 

160 

LD 

L, A 

88C7 

C9 

170 

RET 
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Observe el empieo de SRA A para extender el signo del valor en A si se 
desplaza hacia la derecha. Esto permite que la rutina devuelva, corno en el caso 
de DF-LOC, una dirección lògica dada en cualquier nùmero de linea en B 
(alcance —128 hasta + 127). 

La extensión lògica de la rutina para conseguir la función ATTR (Y, X) es el 
anadir la instrucción 

LD A,(HL) 

antes de RET, devolviendo el atributo en el registro A. 

He incluido un par de rutinas para conversión de direcciones entre el 
archivo de pantalla y el de atributos, que pueden ser utiles si tiene uno pero no 
el otto. La primera rutina, DF-ATT encontrarà la dirección del atributo al cubrir 
cualquier octeto en el archivo de pantalla, sin tener en cuenta si està en la 
fila cero de una linea o no. 



10 

ENTRADA: HL=DIRECCION EN EL ARCHIVO DE PANTALLA 


20 

SE CONSERVAN:HL,BC 


30 

SALIDA: DE=DIRECCION DE ATRIBUTOS, A=D 

8781 7C 

40 DF-ATT LD A,H 

8782 0F 

50 

RRCA 

8783 0F 

60 

RRCA 

8784 0F 

70 

RRCA 

8785 E603 

80 

AND 3 

8787 F658 

90 

OR #5 8 

8789 57 

100 

LD D, A 

878A 5D 

110 

LD E, L 

878b C9 

120 

RET 

La rutina opuesta 

es ATT-DF, que encuentra la dirección de la primera fila de 

una celdilla en el archivo de pantalla, dada la dirección de sus atributos. 


10 

ENTRADA : HL=DIRECCION ATRI. 


20 

SE CONSERVAN : HL, BC 


30 

SALIDA: DE=DIRECCION DEL A.P. , A=D 

8769 7C 

40 ATTDF LD A,H 

876A E603 

50 

AND 3 

876C 07 

60 

RLCA 

876D 07 

70 

RLCA 

876E 07 

80 

RLCA 

876f f640 

90 

OR #40 

8771 57 

100 

LD D, A 

8772 5D 

110 

LD E, L 

8773 C9 

120 

RET 

Para 

completar la serie de rutinas de "Localización", he incluido una de prò- 

pósitos multiples que 

devuelve la dirección de una celdilla en el archivo de pan- 

talla, la almacena en 

una variable llamada DFCC, devuelve la dirección de sus 

atributos. 

y, finalmente, los propios atributos, en el acumulador. He llamado a 

està rutina 

LOCATE (LOCALIZA). 


10 ;ENTRADA : B=LINEA, C=C0LUMNA 
20 ; CONSERVA:BC 

30 ; SALIDA : HL = DIRECCION A.P. , DE= DIRECCIÓN ATRI. ,A=ATR(B,C) 
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40 ;DF_CC ES MODIFICADO 
50 ; 


5C84 


60 

DFCC 

EQU 

#5C84 



70 

; 



8831 

78 

80 

LOCATE 

LD 

A, B 

8832 

E6 18 

90 


AND 

#18 

8834 

67 

100 


LD 

H, A 

8835 

CBF4 

110 


SET 

6, H 

8837 

0F 

120 


RRCA 


8838 

0F 

130 


RRCA 


8839 

0F 

140 


RRCA 


883A 

F658 

150 


OR 

#58 

883C 

57 

160 


LD 

D, A 

883D 

78 

170 


LD 

A, B 

883E 

E607 

180 


AND 

7 

8840 

0F 

190 


RRCA 


8841 

0F 

200 


RRCA 


8842 

0F 

210 


RRCA 


8843 

81 

220 


ADD 

A, C 

8844 

6f 

230 


LD 

L, A 

8845 

5F 

240 


LD 

E, A 

8846 

1A 

250 


LD 

A,(DE) 

8847 

22845C 

260 


LD 

(DFCC),HL 

884A 

C9 

270 


RET 



Como ya te he dicho, los atributos de cada celdilla le indicati los colores 
de su INK (tinta) y PAPER (papel) y su estado de BRIGHT (brillo) y FLASH 
(parpadeo). La configuración de bits asociada con esto se muestra en el diagrama 


BIT 76543210 



BRIGHT 


( 0 / 1 ) 

Por tanto, la configuración para FLASH 1, BRIGHT 0, INK 3, PAPER 6 
seria 10110011 oHexB3. 

Podemos borrar el archivo de atributos llenàndolo con cualquier octeto, 
utilizando la siguiente rutina, CLSATT, que funciona de una forma muy similar 
a CLS-DF. 




10 

;ENTRADA: A=ATRIBUTO DE PANTALLA 



20 

; SE CONSERVA : 

A 



30 

;SALIDA: BC=0, 

DE=#5B00, HL=#5AFF 



40 



8765 

210058 

50 

CLSATT LD 

HL,#58 0 0 

8768 

01FF02 

60 

LD 

BC,#2FF 

876B 

77 

70 

LD 

(HL),A 

876C 

54 

80 

LD 

D,H 

876D 

1E01 

90 

LD 

E, 1 

876f 

EDBO 

100 

LDIR 


8771 

C9 

110 

RET 
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Por tanto, para volver a poner los atributos a su condición inicial (FLASH 0, 
BRIGHT 0, PAPER 7, INK 0), haga: 

LD A,#38 
CALL CLSATT 

También he incluido una combinación de CLS-DF y CLSATT que borra el 
archivo de pantalla y pone los atributos a un valor dado. La rutina se llama CLS 
por razones obvias. 




10 

;ENTRADA: A= 

ATRIBUTO DE PANTALLA 



20 

;SE 

CONSERVA 

A 



30 

;SALIDA: BC= 

0, DE=#5B00, HL=#5AFF 



40 

; 



8789 

210040 

50 

CLS 

LD 

HL,#4000 

878C 

010018 

60 


LD 

BC,#18 0 0 

878f 

75 

70 


LD 

(HL ) ,L 

8790 

54 

80 


LD 

D, H 

8791 

1E01 

90 


LD 

E, 1 

8793 

EDB0 

100 


LDIR 


8795 

77 

110 


LD 

(HL),A 

8796 

01FF02 

120 


LD 

BC,#2FF 

8799 

EDB0 

130 


LDIR 


879B 

C9 

140 


RET 



Mi ùltima observación sobre el direccionamiento de la pantalla es el control 
del color del borde. El color del borde del Spectrum usualmente està contenido 
corno bits 3, 4 y 5 de la variable del sistema BORDCR, en la dirección #5C48. 

Sin embargo, al alterar està dirección a través del lenguaje màquina no se 
obtiene ningun efecto en el color del borde, ùnicamente cambia el valor contenido 
en #5C48. Para cambiar el borde, tenemos que poner a cero el bit 0 del 
bus de direcciones y luego dar salida al nùmero del nuevo color por el bus de 
datos. Para no afectar a ningùn otto dispositivo conectado al puerto del usuario, 
ponemos a uno los 7 bits restantes del octeto de menor peso del bus de datos, 
obteniendo 1111 1110 en binario, o FE en Hex. 

Por tanto, para cambiar el color del borde al color rojo (valor 2) utilizamos 
la secuencia 

LD A, 2 
OUT (#FE),A 

Debo senalar que el color del borde sólo utiliza los bits 0, 1 y 2 del bus 
de datos. De hecho el bit 3 controla las salidas MIC y EAR y el bit 4 el 
altavoz. Alterando el estado de éstas (complementàndolas), se provoca el envio de 
un clic a las clavijas MIC y EAR o se oye en el altavoz. 

Es una buena pràctica de programación el "enmascarar" aquellos bits que 
no son necesarios para alterar el color del borde, de forma que se mantenga su 
estado y no se oigan clics extranos en el altavoz. Si almacenamos el ùltimo 
valor enviado al puerto #FE en la variable BORD, y luego cambiamos el color 
del borde, sera aplicable este segmento de programa. 
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LD A,(BORD) 

AND #0F8 

OR (NUEVO VALOR DE BORDE) 

OUT (#FE),A 

LD (BORD),A 

Si tiene un par de registros de sobra tales corno HL, entonces es ligera- 
mente mejor y mas ràpido utilizar: 

LD HL,(BORD) 

LD A,(HL) 

AND #0F8 

OR (NUEVO VALOR DE BORDE) 

OUT ( #0FE),A 

LD (HL),A 

Antes de concluir con este tema, una peculiaridad interesante del lenguaje 
de màquina del Z-80 es que, al contrario de otras instrucciones, es realmente 
mas ràpido el empieo de datos inmediatos que el de un registro corno el nùmero 
de puerto cuando se da salida desde el acumulador. O sea: 

OUT ( #FE ) ,A ; TARDA 11 T-ESTADOS MIENTRAS QUE 

OUT (C),A ; TARDA 12 T-ESTADOS 

Esto representa bastante diferencia cuando se necesita una salida a muy 
alta velocidad, corno se verà màs addante en este libro. 
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2 

E1 desarrollo de una 
rutina de impresión 


Las rutinas de impresión en la ROM del Spectrum son terriblemente lentas y 
aburridas de utilizar. Esto es una consecuencia del uso de la instrucción RST #10 
para gran cantidad de funciones de impresión diferentes. Una vez llamada, la 
rutina tiene que decidir, entre otras cosas, si està imprimiendo en el àrea de INPUT, 
en la parte superior de la pantalla o sobre la impresora, si està intentando 
cambiar el color de INK o del PAPER o ejecutando algun control màs, tal 
corno una función TAB o AT, y si està imprimiendo un caràcter "normal", uno 
semigràfico o un caràcter gràfico definido por el usuario. Ademàs de todo esto, 
debido a la naturaleza del BASIC, la rutina también pasa riempo realizando 
una serie de comprobaciones de error de las que podemos prescindir en un pro¬ 
grama en código-màquina. 

Por tanto, es esencial que desarrollemos nuestra propia rutina de impresión 
hecha a la medida, y esto es lo que voy a hacer en este capitolo. 

El proceso de imprimir un caràcter puede desglosarse en 3 etapas. Pri- 
mero localizamos la dirección de los datos del caràcter (los 8 octetos cuyos 
bits definen el caràcter), luego copiamos estos datos en la celdilla deseada de la 
pantalla, y finalmente cambiamos los atributos de esa celdilla segun se necesite. 

Sin duda estarà familiarizado con el concepto de dejar ciertos atributos de 
una celdilla tal y corno estàn con el empieo de INK 8, PAPER 8, FLASH 8 y 
BRIGHT 8 en el momento de imprimir un nuevo caràcter en esa celdilla. Estas 
funciones BASIC se realizan fàcilmente en lenguaje màquina, donde se conoce 
la operación corno enmascaramiento (MASKING) de los bits individuales del 
"viejo" octeto de atributo en el momento de imprimir un caràcter "nuevo". 
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Utilizaremos una variable de un octeto, ATT, para contener los nuevos atri- 
butos para el caràcter que se va a imprimir, y un segundo octeto, MASK, 
para contener la mascara para los viejos atributos. Para cada bit de los atributos 
viejos que necesitamos conservar, ponemos a uno el bit correspondiente de 
MASK. Supongamos que sólo queremos que se enmascare el bit BRIGHT 
(por ejemplo, BRIGHT 8). Entonces, consultando el bit de atributo en el capi- 
tulo 1, vemos que BRIGHT ocupa el bit 6. Por lo que si ponemos a uno el 
bit 6 de nuestra mascara obtenemos 0100 0000 o Hex 40. Por tanto, hacemos la 
variable MASK igual a Hex 40. 

Si examinamos los 8 valores que representan detalladamente el juego de 
colores de INK (tinta) y PAPER (papel), encontramos que estàn asignados a los 
colores de una forma extremadamente lògica. Todos los colores son combina- 
ciones de los tres colores primarios, azul, rojo y verde, y se han asignado tres 
bits de estos colores para cada INK y PAPER. Esto le hace mas sencilla la 
tarea al conocido chip ULA, que, por decido de alguna manera, debe enviar 
estos bits a los canones de electrones, azul, rojo y verde que "disparan" sobre 
los pixels de su televisor en color. 

El color azul està asignado al mas bajo de los tres bits (valor 1), luego el 
rojo (valor 2) y luego el verde (valor 4). De està forma los bits de INK (tinta) 
y PAPER (papel) aparecen corno se indica a continuación: 

BIT-MAYOR-PESO BIT-MENOR-PESO 


VERDE 


ROJO 


AZUL 


y la estructura del atributo completo (y de la mascara) es la siguiente: 


Flash Bright «-Paper->x<-Ink-» 


7 

6 

5 

4 

3 

2 

1 

0 



Y 

R 

A 

V 

R 

A 


Siempre que se necesita un color primario para fabricar otto color, su bit 
està puesto a uno. Por tanto, cian, que es una mezcla de verde y azul, 
tiene la estructura binaria: 


Y R A 


1 0 


= decimai 5 


El bianco es la combinación de los tres colores primarios, por lo que 
tiene la estructura 
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representa por 


V 

R 

A 

1 

1 

1 

la 

ausencia 

V 

R 

A 

0 

0 

1 0 1 


= decimai 7 


= decimai 0 


Por cierto, no hay diferencia entre el negro brillante (con BRIGHT 1) y 
el negro oscuro (BRIGHT 0). Puede verificar que esto es asi haciendo: 

;BORDER 0; PAPER 0; BRIGHT 1; CLS 


Al introducir està linea, los colores del borde y àrea de texto no se distin- 
guiràn. 

Una de las ventajas de tener los valores de los colores asignados tan lo¬ 
gicamente es que puede enmascarar los colores primarios o una combinación 
de ellos, en vez de estar restringido a tener que enmascarar los tres bits, que es 
todo lo que ofrecen INK 8 y PAPER 8 en el BASIC. 

Después de obtener los valores para ATT y MASK, estamos preparados 
para crear el nuevo octeto de atributo para una celdilla. Cargando los viejos 
atributos en el acumulador, la forma mas ràpida de realizar la operación es: 

XOR ATT 
AND MASK 
XOR ATT 


El nuevo octeto de atributo està ahora preparado para ser colocado en el 
archivo de atributos. Verà que aparece un fragmento de programa asi en la ru- 
tina de impresión siguiente. 

Almacenamos la dirección base de los datos del caràcter que se va a utili¬ 
zar en la variable de dos octetos BASE. Està deberia apuntar a la fila cero del 
primer caràcter de su juego. He previsto sitio para hasta 256 caracteres, y 
puesto que cada uno necesita 8 octetos, un juego completo necesitarà 2K de 
memoria. En el caso, poco probable, de que se necesiten màs de 256 caracteres, 
necesitarà dos octetos para representar cada caràcter, y debe utilizar el octeto de 
mayor peso para indicar qué valor de BASE se necesita, y a continuación llamar 
a la misma rutina de impresión. 

El Spectrum tiene las estructuras en bits de 96 de sus caracteres en ROM, 
que van desde el ESPACIO hasta el simbolo de copyright. Estos datos ocupan 
los ultimos 768 octetos de la ROM, desde la dirección #3D00. 

La variable del sistema CHARS de la que se habla en el manual del Spec¬ 
trum "contiene la dirección del juego de caracteres menos 256". Esto puede 
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parecer un poco extrano, hasta que se dé cuenta de que el primer caràcter, 
un espacio, està representado numèricamente por #20, o por 32 en decimai. 
Ahora bien 32 x 8 = 256, asi que poniendo en CHARS la dirección del juego de 
caracteres menos 256, el Spectrum puede encontrar la dirección de un caràcter 
con sólo multiplicar su código por 8 (fìlas) y sumarlo a CHARS. 

En la rutina PRINT 1 observarà que he inicializado nuestra variable BASE 
corno #3C00, de forma que los valores normales CODE para el juego de carac¬ 
teres del Spectrum son aplicables. También he puesto ATT inmediatamente antes 
de MASK para que las dos puedan accederse con una sola instrucción LD. 




10 

; ENTRADA : 

A=C0DIG0 CAR. 




20 

; SE CONSERVA 

: C 




30 

; SALIDA: B = 0 

, DE=DIRECCIÓN ATRIBUTO 



40 




8A8f 

003C 

50 

BASE DEFW 

#3C00 


8A91 

0040 

60 

DFCC DEFW 

#4000 


8A93 

38 

70 

ATT DEFB 

#38 


8A94 

00 

80 

MASK DEFB 

0 




90 






100 

;CONSTRUCCION DE DIRECCIÓN DE DATOS DE CARACTER 

8A95 

6f 

110 

PRINT1 LD 

L, A 


8A96 

2600 

120 

LD 

H, 0 


8A98 

29 

130 

ADD 

HL,HL 


8A99 

29 

140 

ADD 

HL,HL 


8A9A 

29 

150 

ADD 

HL, HL 


8A9B 

ED5B8F8A 

160 

LD 

DE,(BASE) 


8A9F 

19 

170 

ADD 

HL , DE 




180 

;T0MAR DIRECCIÓN DEL ARCHIVO 

DE PANTALLA 

8AA0 

ED5B918A 

190 

LD 

DE,(DFCC) 


8AA4 

0608 

200 

LD 

B, 8 




210 

;IMPRIMIR CARACTER FILA POR 

FILA 

8AA6 

7E 

220 

NXTROW LD 

A,(HL) 


8AA7 

12 

230 

LD 

(DE),A 


8AA8 

23 

240 

INC 

HL 


8AA9 

14 

250 

INC 

D 


8AAA 

1 0FA 

260 

DJNZ 

NXTROW 




270 

; CONSTRUIR DIRECCIÓN DE ATRIBUTO 

8AAC 

7 A 

280 

LD 

A, D 


8AAD 

0F 

290 

RRCA 



8AAE 

0F 

300 

RRCA 



8AAF 

0F 

310 

RRCA 



8AB0 

3D 

320 

DEC 

A 


8AB1 

E6 03 

330 

AND 

3 


8AB3 

F658 

340 

OR 

#58 


8AB5 

57 

350 

LD 

D, A 


8AB6 

2A93 8A 

360 

LD 

HL,(ATT) 




370 

;H=MASCARA, L = ATRIBUTO 




380 

;TOMAR EL ANTERIOR ATRIBUTO 


8AB9 

1A 

390 

LD 

A,(DE) 




400 

;CONSTRUIR UNO NUEVO 


8ABA 

AD 

410 

XOR 

L 


8Abb 

A4 

420 

AND 

H 


8ABC 

AD 

430 

XOR 

L 




440 

;REEMPLAZAR 

ATRIBUTO 


8ABD 

12 

450 

LD 

(DE),A 




460 

; FINALMENTE 

PONER DFCC A LA 

SIGUIENTE POSICION IMPRESION 

8ABE 

2 1 9 1 8 A 

470 

LD 

HL, DFCC 


8AC1 

34 

480 

INC 

(HL) 


8 AC2 

CO 

490 

RET 

NZ 


8AC3 

23 

500 

INC 

HL 


8AC4 

7E 

510 

LD 

A,(HL) 


8AC5 

C6 08 

520 

ADD 

A,8 
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8AC7 77 
8AC8 C9 


530 

540 


LD 

RET 


( HL ) , A 


En la rutina anterior he hecho la suposición de que ya se habla puesto 
DF-CC a la dirección correcta del archivo de pantalla, utilizando la rutina 
LOCATE del capitulo 1 o de otra forma. Observarà que se actualiza a la siguien- 
te posición de impresión cada vez que se imprime un caràcter. 

Como ejemplo para mostrar PRINT 1 en acción, he aqui una rutina para 
imprimir el juego de caracteres de la ROM (códigos #20 hasta #7F). Necesi- 
tarà la rutina LOCATE del capitulo 1. 

10 ;DEMOSTRACION DE PRINT1 
2 0 ;PONER DFCC A (0,0) 

87F3 010000 30 LD BC,0 

87F6 CDF687 40 CALL LOCATE 

50 ;PONER BASE SENALANDO AL JUEGO DE CARACTERES ROM 
87F9 21003C 60 LD HL,#3C00 

87FC 22FC87 70 LD ( BASE ) , HL 

80 ;AHORA IMPRIMIR DESDE EL CODIGO #20 HASTA EL #7F 
90 ; RECORDAR QUE PRINT1 CONSERVA EL REGISTRO C 


87FF 

0E2 0 

100 

LD 

C,#20 

8801 

79 

110 LOOP 

LD 

A, C 

8802 

CD0288 

120 

CALL 

PRINT1 

8805 

OC 

130 

INC 

C 
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3 

Dibujar y trazar 


Habrà muchas ocasiones en que necesite dibujar estrellas y posiciones en 
mapas o trazar rayos làser. Aqui voy a desarrollar una rutina para que pueda 
dibujar en cualquier parte de la pantalla, y una para trazar, utilizando coor- 
denadas absolutas, una linea entre dos puntos cualesquiera de la pantalla. Las 
rutinas son ligeramente mas ràpidas que las del BASIC en ROM, puesto que he 
quitado muchas comprobaciones de error engorrosas. 

E1 proceso que se necesita para dibujar un punto en la pantalla puede 
desglosarse en 4 etapas. Primero, encontramos la dirección del octeto del archivo 
de pantalla que contiene el bit que representa nuestro pixel (punto gràfico) de 
"destino" en la pantalla. Luego encontramos la dirección de los atributos de la 
celdilla donde se encuentra dicho pixel. A continuación cambiamos los atributos 
de acuerdo con nuestras variables estàndar ATT y MASK, y finalmente reali- 
zamos el dibujo en si, observando cuidadosamente si se necesita INVERSE 1 
u OVER 1. 

Debo comentar en este punto que, dado un octeto del archivo de pantalla 
que representa una fila de una celdilla, el bit màs a la izquierda (BIT 7) re¬ 
presenta el pixel màs a la izquierda, mientras que el bit màs a la derecha 
(BIT 0) representa el pixel màs a la derecha. Un error frecuente de la programa- 
ción es pensar que el bit 0 representa el primer pixel (el de màs a la izquierda). La 
forma màs fàcil para recordar esto es con este diagrama: 


BU 7 6 5 4 3 210 
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Vera que la rutina PLOT encuentra la clirección del atributo convirtiendo 
la dirección del archivo de pantalla. Esto es mucho mas fàcil y ràpido que 
volver a nuestras coordenadas originales y calcular la dirección en función de 
ellas. 


La rutina decide si hay que utilizar OVER o INVERSE consultando el 
estado de dos banderas (Jlags) en una variable de un octeto llamada PFLAG. 
Esto es equivalente a la variable del sistema BASIC del mismo nombre de la 
dirección 23697 (5C91 Hex). Indicamos OVER 1 poniendo a uno el bit 1 de 
PFLAG, e INVERSE 1 poniendo a uno el bit 3. 

Observe que estoy utilizando un sistema nuevo de coordenadas en la pan¬ 
talla, que hace que sea mas fàcil y màs ràpido calcular las direcciones. El àngulo 
superior izquierdo es (0,0) mientras que el inferior derecho (contando las lineas 


de INPUT) es 

(255,191) 

He aqui 

la rutina: 



10 

;ENTRADA : H= 

X, L = Y 



20 

; SE 

CONSERVA 

HL 



30 

; DE = 

DIRECCIÓN 

DEL PIXEL EN EL ARCHIVO DE PANTALLA 



40 

;A=(DE), C= ( PFLAG) 



50 

; ES 

QUINA SUPERIOR IZQ UIERDA = (0,0) 



60 






70 

•BIT 

1 (PFLAG)=0VER 



80 

; BIT 

3 (PFLAG)=INVERSE 



90 

; 





100 

; 



8BAE 

38 

110 

ATT 

DEFB 

#38 

8baf 

00 

120 

MASK 

DEFB 

0 

8bb0 

00 

130 

PFLAG DEFB 

0 



140 

; 





150 

; ENCONTRAR LA 

DIRE CCION DEL BYTE REQUERIDO EN 

8bbi 

7D 

160 

PLOT 

LD 

A, L 

8BB2 

E 6 CO 

170 


AND 

#C0 

8bb4 

1F 

180 


RRA 


8bb5 

37 

190 


SCF 


8bb6 

1F 

200 


RRA 


8BB7 

0F 

210 


RRCA 


8bb8 

AD 

220 


XOR 

L 

8BB9 

E6f8 

230 


AND 

#F8 

8bbb 

AD 

240 


XOR 

L 

8bbc 

57 

250 


LD 

D, A 

8bbd 

7C 

260 


LD 

A, H 

8bbe 

07 

270 


RLCA 


8bbf 

07 

280 


RLCA 


8bco 

07 

290 


RLCA 


8bci 

AD 

300 


XOR 

L 

8BC2 

E6C7 

310 


AND 

#C7 

8bc4 

AD 

320 


XOR 

L 

8bc5 

07 

330 


RLCA 


8bc6 

07 

340 


RLCA 


8bc7 

5F 

350 


LD 

E, A 



360 

; LA 

DIRECCIÓN 

SE ALMACENA EN DE 

8bc8 

D5 

370 


PUSH 

DE 



380 

;ENCONTRAR DIRECCIÓN DE ATRIBUTO 

8bc9 

7A 

390 


LD 

A, D 

8bca 

0F 

400 


RRCA 


8bcb 

0F 

410 


RRCA 


8bcc 

0F 

420 


RRCA 


8BCD 

E6 03 

430 


AND 

3 

8BCF 

F658 

440 


OR 

#58 

8BD1 

57 

450 


LD 

D, A 

8BD2 

ED4BAE8B 

460 


LD 

BC,(ATT) 


A. P. 


30 







470 

; CAMBIAR ATRIBUTO 


8BD6 

1A 

480 

LD 

A,(DE) 

8BD7 

A9 

490 

XOR 

C 

8bd8 

AO 

500 

AND 

B 

8BD9 

A9 

510 

XOR 

C 

8BDA 

12 

520 

LD 

(DE),A 



530 

; RECUPERAR DIRECCION 

DE A.P 

8BDB 

DI 

540 

POP 

DE 

8bdc 

7C 

550 

LD 

A, H 

8BDD 

E607 

560 

AND 

7 

8bdf 

47 

570 

LD 

B, A 

8BE0 

04 

580 

INC 

B 


590 ;B TIENE (NUMERO BIT DE DESTINO)+1 
8BE1 3EFE 600 LD A,#FE 

6 1 0 ; ROTAR UNA VENTANA HASTA EL BIT DE DESTINO 
8BE3 OF 62 0 PLOOP RRCA 

8be4 10FD 630 DJNZ 

8BE6 47 640 LD 

8BE7 3AB08B 650 LD 

8BEA 4f 660 LD 

670 ;TOMAR UN BYTE 


8beb 

1A 

680 

LD 


A,(DE) 



690 ;COMPROBAR 

OVER 1 


8bec 

CB49 

700 

BIT 


1 ,C 

8bee 

2001 

710 

JR 


NZ,OVER 1 

8bf0 

A0 

720 

AND 


B 



730 ;COMPROBAR 

INVERSE1 


8bfi 

CB59 

740 OVER 1 

BIT 


3,C 

8bf3 

2002 

750 

JR 


NZ,INV1 

8bf5 

A8 

760 

XOR 


B 

8bf6 

2F 

770 

CPL 



8BF7 

12 

780 INVI 

LD 


(DE ) , A 

8bf8 

C9 

790 

RET 




La parte final de la rutina, la que realiza propiamente el dibujo, merece 
una explicación mas detallada. Pasando por alto los otros 7 bits de nuestro 
octeto, ya que siempre conserva su estado al final, vamos a examinar el compor- 
tamiento del bit "destino", 

AND B 

hace que el destino sea cero si se selecciona OVER 0, OVER 1 hace que se 
omita la instrucción, 

BIT 3,C 

JR NZ,INVI 

provoca un salto hacia el final si se habfa seleccionado INVERSE 1, dej andò 
el bit corno estaba si se habfa seleccionado OVER 1, o a cero (PAPER) si se 
habfa seleccionado OVER 0. 

Finalmente, "restringendo" nuestras selecciones a INVERSE 0, 

XOR B 
CPL 


PLOOP 

B, A 

A,(PFLAG) 

C, A 
DEL A.P. 


que puede ser considerado con mas claridad corno 
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XOR B 

XOR #FF 

deja el bit complementado en el caso de OVER 1 o puesto a uno en el caso de 
OVER 0. Ahora se reemplaza el octeto en el archivo de pantalla. 

& & & & 


Tras està rutina PLOT, he decidido que mereceria la pena hacer un ejer- 
cicio para desarrollar nuestra propia rutina DRAW en código màquina. Aunque 
utiliza el mismo algoritmo que el de la ROM del Spectrum, la rutina funcionarà 
algo mas deprisa debido al empieo de código "optimizado" y a que hay menos 
riesgo de error. 

Utilizaré coordenadas absolutas corno paràmetros para la rutina, en vez de 
las relativas que se emplean en el BASIC de Spectrum. Esto es en gran parte un 
asunto de preferencia personal, y ademàs es muy sencillo modificar la rutina para 
que efectóe trazado relativo. Como con la rutina PLOT, las coordenadas se 
asignan corno sigue: 


( 0 , 0 ) 


(0,191) 


(255,0) 


(255,191) 


Para poder discutir el algoritmo del trazado, vamos a suponer que la linea 
va desde (XI, Yl) a (X2, Y2), ambos inclusive. Antes de continuar, la rutina 
dibuja el primer punto de la linea. Ahora se necesita algo de preparación para 
decidir en qué dirección hay que trazar. 

Si (X2-X1) es positivo, estaremos trazando hacia la derecha. Si es negativo, 
entonces hacia la izquierda. De manera similar, si (Y2-Y1) es positivo, estaremos 
trazando hacia abajo, y en caso contrario, la dirección sera hacia arriba. 

La rutina carga los cambios de unidad en X e Y relativos a la dirección 
a lo largo de cada eje en los registros D y E, respectivamente. Por ejemplo, 
si estuviéramos trazando hacia arriba y hacia la derecha, entonces el cambio en 
X seria positivo (D = 1) y en Y negativo (E = —1). Asi la rutina produce: 

DE=#01FF 


Ahora necesitamos considerar exactamente còrno puede formarse una linea 
a base de pasos de una unidad horizontal, vertical o diagonalmente entre puntos 
en una rejilla. Pensando un momento, observamos que, a menos que los dos 
puntos de los extremos de la linea estén en una diagonal de pixel, necesitaremos 
combinar una mezcla de pasos "rectos" y diagonales para trazar la linea. La rutina 
defìne la pareja BC corno sigue: 

B=ABS(X2-X1) C=ABS(Y2-Y1) 
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Si B es mayor que C, entonces necesitaremos una mezcla de pasos horizon- 
tales y diagonales, de està forma: 

- 4 — LINEA IDEAL 

_,_. ^ i 




Mientras que si B es menor que C, se requiere una mezcla de pasos VER- 
TICALES y diagonales, tales corno éstos: 


t 

w 


0 


0 


LINEA IDEAL 


La rutina decide si necesitamos pasos verticales u horizontales, y almacena 
el valor necesario de DE, corno se explicó anteriormente, en la variable VHSTP. 
La dirección de los pasos diagonales està almacenada en DIASTP. 

Los valores en B y C estàn almacenados de manera que B sea mayor o 
igual que C. Estamos ahora a punto para empezar a trazar la linea que tendrà 
(B-C) pasos rectos y C diagonales. Para poder asegurarse que los pasos rectos y 
diagonales estàn distribuidos por igual, se utiliza el procedimiento siguiente. 

Se copia B en H, y luego se divide por dos y se copia en L. Ahora, 
entrando en el bucle, se suma C a L, y si el resultado es mayor o igual que B, 
entonces se reduce por B, y se toma un paso diagonal. De no ser asi, se toma 
un paso recto. Se dibuja un punto, se decrementa el contador H, y el bucle se 
repite hasta que la linea esté acabada. Se puede considerar este bucle corno que 
C se suma continuamente a si mismo y se toma un paso diagonal cada vez 
que el resultado pasa un nuevo mùltiplo de B. La razón de que se inicialice L 
corno 1/2 B es sencillamente para asegurar que la linea sea recta desde el prin¬ 
cipio. 

He aqui por fin la rutina DRAW; los valores de salida màs utiles son las 
coordenadas del ùltimo punto dibujado, en HL. Como HL contiene también 
las coordenadas del primer punto de una linea a la entrada en la rutina, vemos 
que se puede usar sin alteración de las llamadas a la rutina DRAW, para trazar 
lineas hacia, y después desde, el mismo punto. Està facilidad serà utilizada mu- 
chisimo en el programa de demostración que sigue a la rutina. 


10 ;ENTRADA : H=X1, L=Y1, B=X2, C=Y2 

20 ; DE ESTE MODO SE DIBUJA DESDE (H,L) HASTA (B,C) INCLUSIVE 

3 0 ;N0 SE CONSERVA NADA 

40 ;SALIDA: DE ES LA DIRECCIÓN DEL ULTIMO PIXEL DIBUJADO 

50 ; QUE ESTÀ EN (H,L). 

60 ;B ES EL MAYOR 

70 ;Y C EL MENOR DE ABS(X2-X1) Y ABS(Y2-Y1). 
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8DFF 

8eoi 

8E03 

8e04 

8E07 

8E08 


8E0B 

8E0C 
8E0D 
8E0F 
8E10 
8E 1 1 

8e 1 3 

8E 1 4 
8e 15 

8e 16 

8E18 
8e 1 9 
8E1A 
8E1C 


8E1D 
8E1E 
8E 1F 

8e2 0 

8E2 1 

8E22 

8E23 

8E24 


8E27 

8E29 

8E2B 

8E2C 

8E2D 

8E2E 


8E2F 


8E32 

8E33 

8E34 

8E36 

8E37 

8E38 


8E3 9 
8E3B 
8E3C 
8E3E 



80 

: 




90 

; 



0100 

100 

DIASTP 

DEFW 

1 

0100 

110 

VHSTP 

DEFW 

1 


120 

; 



C5 

130 

DRAW 

PUSH 

BC 


140 

; PLOT(X1,Y1) 


CD048E 

150 


CALL 

PLOT 

CI 

160 


POP 

BC 

110101 

170 


LD 

DE , # 1 01 


180 

; DE CONTIENE LA DIRECCION DE LOS 


190 

;PASOS X 

E Y 


78 

200 


LD 

A, B 


210 

;IR A LA IZQ ( - 1 ) , 0 

A LA DER (+1)? 

94 

220 


SUB 

H 

3004 

230 


JR 

NC,X2X1 

15 

240 


DEC 

D 

15 

250 


DEC 

D 

ED44 

260 


NEG 


47 

270 

X2X1 

LD 

B, A 


280 

;B CONTIENE EL NO. 

DE PASOS EN X 

79 

290 


LD 

A, C 

95 

300 


SUB 

L 


310 

; SUBIR (- 

1) 0 BAJAR ( + 1 )? 

3004 

320 


JR 

NC,Y2Y1 

1 D 

330 


DEC 

E 

1 D 

340 


DEC 

E 

ED44 

350 


NEG 


4f 

360 

Y2Y1 

LD 

C, A 


370 

; C CONTIENE EL NO. 

DE PASOS EN Y 


380 

;COMPROBAR QUE ESTÀ LINEA NO ES UN PUNTO 

B0 

390 


OR 

B 

C8 

400 


RET 

Z 

79 

410 


LD 

A, C 

b8 

420 


CP 

B 

E5 

430 


PUSH 

HL 


440 

;ALMACENAR LA DIRECCION DE UN PASO EN DIAGONAL 

62 

450 


LD 

H, D 

6b 

460 


LD 

L, E 

22FF8D 

470 


LD 

(DIASTP),HL 


480 

;DECIDIR 

ENTRE PASOS VERTICALES Y 


490 

;HORIZONTALES DEPENDIENDO DE 


500 

;CUAL ES 

EL MAYOR 

DE B Y C 

2E00 

5 1 0 


LD 

L, 0 

3804 

520 


JR 

C, BBC 

65 

530 


LD 

H, L 

6b 

540 


LD 

L , E 

48 

550 


LD 

C, B 

47 

560 


LD 

B, A 


570 

;ALMACENAR EL PASO V/H 


580 

; 



22018E 

590 

BBC 

LD 

(VHSTP),HL 


600 

; 




610 

;B ES AHORA >=C. 

LA RUTINA TOMA B-C PASOS RECTOS 


620 

;Y C DIAGONALES 


60 

630 


LD 

H, B 

78 

640 


LD 

A , B 

CB3F 

650 


SRL 

A 

6F 

660 


LD 

L, A 

7D 

670 

NXTSTP 

LD 

A, L 

81 

680 


ADD 

A, C 


690 

;DECIDIR 

ENTRE UN 

PASO DIAGONAL 0 


700 

; RECTO ESTÀ VEZ 


3803 

710 


JR 

C, DIAG 

b8 

720 


CP 

B 

3808 

730 


JR 

C,VERHOR 

90 

740 

DIAG 

SUB 

B 
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8E3F 

6f 

750 


LD 

L, A 

8e40 

ED5BFF8D 

760 


LD 

DE,(DIASTP) 

8e44 

1805 

770 


JR 

STEP 

8e46 

6f 

780 

VERHOR 

LD 

L, A 

8e47 

ED5B018E 

790 


LD 

DE,(VHSTP) 

8e4b 

E3 

800 

STEP 

EX 

(SP),HL 



810 

;HACER 

EL PASO 

A LO LARGO DE X 

8e4c 

7C 

820 


LD 

A, H 

8e4d 

82 

830 


ADD 

A, D 

8e4e 

67 

840 


LD 

H, A 



850 

;HACER 

EL PASO 

A LO LARGO DE 

8e4f 

7D 

860 


LD 

A, L 

8e50 

83 

870 


ADD 

A,E 

8E5 1 

6f 

880 


LD 

L, A 



890 

;EL PLOT REAL ! 

! ! ! ! ! 

8E52 

C5 

900 


PUSH 

BC 

8E53 

CD048E 

910 


CALL 

PLOT 

8e5 6 

CI 

920 


POP 

BC 



930 

; RECUPERAR CONTADOR 

8E57 

E3 

940 


EX 

(SP),HL 

8E5 8 

25 

950 


DEC 

H 

8E5 9 

20DC 

960 


JR 

NZ,NXTSTP 

8E5B 

El 

970 


POP 

HL 

8E5C 

C9 

980 


RET 



En el siguiente programa de demostración en lenguaje màquina, he combi- 
nado el empieo de CLS (véase cap. 1) con PLOT y DRAW para producir una 
estructura de 24 li'neas que, segun me han dicho entendidos en la materia, se 
parece a un pisapapeles pesado sobre un almohadón blando visto desde arriba. 

Si està damando a la rutina con el comando directo USR del BASIC, 
seria una buena idea seguir la función USR con una sentencia PAUSE 0 de 
forma que las dos lineas inferiores no sean destruidas al volver. Los comentarios 
del listado deben proporcionar una explicación adecuada del funcionamiento del 
programa. 




10 

;RUTINA 

DE DEMOSTRACION PARA CLS, PLOT Y DRAW 



20 

; 


8AF A 

3E0E 

30 

MOIRE 

LD A,#E 



40 

;PAPEL 

AZUL, TINTA AMARILLA 

8AFC 

CDFC8A 

50 


CALL CLS 



60 

; OVER 1 


8AFF 

3E02 

70 


LD A, 2 

8B0 1 

32018B 

80 


LD (PFLAG),A 



90 

;BORDER 

6 

8B04 

3E06 

100 


LD A, 6 

8bo6 

D3FE 

1 10 


OUT (#FE ) , A 



120 

;PONER 

ATRIBUTOS Y MASCARA 

8B08 

210E00 

130 


LD HL,#E 

8bob 

22 0B8B 

140 


LD (ATT),HL 



150 

; TRAZAR 

BORDE SUPERIOR (BC=0) 

8boe 

2100FF 

160 


LD HL,#FF00 

8bi 1 

CD 118B 

170 


CALL DRAW 



180 

; TRAZAR 

BORDE IZQUIERDO 

8bi4 

2C 

190 


INC L 

8b 15 

01BF00 

200 


LD BC,#BF 

8bi8 

CD118b 

2 1 0 


CALL DRAW 

8b 1B 

24 

220 


INC H 



230 

;AHORA 

CREAR SILUETA EN RESTANTES 



240 

;(255*191 ) PIXELS 

8B1C 

E5 

250 

NXTDR1 

PUSH HL 



260 

; TRAZAR 

DESDE LADO IZQ. AL CENTRO 

8B1D 

016080 

270 


LD BC,# 8 0 6 0 
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8B20 

CD 118b 

280 


CALL 

DBAW 




290 

;AHORA 

DESDE CENTRO A DER . 


8 b 23 

CI 

300 


POP 

BC 


8b2 4 

C5 

310 


PUSH 

BC 


8B25 

06FF 

320 


LD 

B, #FF 


8B2 7 

CD 118b 

330 


CALL 

DBAW 




340 

;DECREMENTAR CONTADOR A SIGUIENTE FILA 



350 

;HACIA 

ARRIBA DE 

LA PANTALLA 


8B2 A 

El 

360 


POP 

HL 


8B2B 

2D 

370 


DEC 

L 


8B2C 

20EE 

380 


JR 

NZ,NXTDR1 


8B2E 

2C 

390 


INC 

L 


8B2F 

E5 

400 

NXTDR2 

PUSH 

HL 




410 

; TRAZAR 

’ DESDE BORDE SUPERIOR 

AL CENTRO 

8b30 

016080 

420 


LD 

BC,#8060 


8b33 

CD 118b 

430 


CALL 

DBAW 




440 

;AHORA 

DESDE CENTRO HASTA EL 




450 

;BORDE 

INFERIOR 



8B36 

CI 

460 


POP 

BC 


8b37 

C5 

470 


PUSH 

BC 


8B38 

0E8F 

480 


LD 

C, #BF 


8B3A 

CD 118b 

490 


CALL 

DBAW 




500 

; INCREMENTAR CONTADOR A SIGUIENTE 



510 

;COLUMNA DE PIXELS (HACIA LA 

DEE . ) 

8B3D 

El 

520 


POP 

HL 


8B3E 

24 

530 


INC 

H 


8b3F 

2 0EE 

540 


JR 

NZ,NXTDR2 


8b41 

C9 

550 


RET 




Si lo mas importante es la velocidad, sólo le aconsejo utilizar la rutina 

DRAW si necesita lineas "generales" desde puntos no especificos. Es casi siempre 

mas ràpido utilizar una rutina personalizada, quizà empleando una tabla de re- 
ferencia de las coordenadas del dibujo, en el caso de que se tracen lineas espe- 
cificas. 

Por ejemplo, si necesita trazar con frecuencia una linea recta a lo largo 

de la fila 0 de la pantalla, entonces es mucho mas ràpido cargar #FF en los 

primeros 32 octetos del archivo de pantalla para trazar (DRAW) desde (0,0) 
hasta (255, 0). 
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4 

Pantallas 
de carga animadas 


No se le habrà pasado por alto que casi todos los programas de juego 
del Spectrum dignos de mención presentan una bonita imagen en pantalla para 
entretenerle, mientras el código màquina sigue su lento y laborioso camino a lo 
largo del cable negro desde el cassette hasta su ordenador. La estética de està 
"pantalla de carga" es generalmente proporcional a la cantidad de trabajo duro 
y papel de gràfico que se empiee en el diseno y codificación de la imagen, 
siendo ambos considerables a veces, incluso con el empieo de un buen programa 
de "diseno de gràfìcos en pantalla". 

En este capitalo voy a proporcionarle dos rutinas cortas de utilidad para 
elaborar un estilo alternativo de pantalla de carga espectacular a la vista pero de 
fàcil realización. 

Usted se preguntarà: 'VQué hace el ULA mientras el Z-80 se ocupa de la 
carga del programa desde la cinta hasta la RAM?" La contestación es la misma 
de siempre; se hace cargo de toda la entrada, salida y de la generación de la 
imagen en pantalla. La ultima función incluye el parpadeo (FLASH) de los colo- 
res de tinta (INK) y papel (PAPER) de cualquier celdilla cuyo atributo tenga el 
bit 7 puesto a uno. Podemos utilizar està propiedad para conseguir una pantalla 
que parpadee entre dos imàgenes, quizà mostrando una figura en dos posiciones 
diferentes, de forma que se obtiene "animación" durante la carga u, otra alter¬ 
nativa, mostrando dos palabras distintas del titulo de juego. 

Los conceptos implicados en està tècnica son muy sencillos. Tomaremos 
una pantalla en bianco y a continuación imprimimos espacios de varios colores 
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en ella, controlando el color de estos espacios con comandos PAPER. Las 
celdillas de colores resultantes formaràn nuestra primera imagen, y por tanto, 
tenemos una rejilla de 32 columnas x 24 Hneas para disenar en ella la imagen, 
temendo cada celdilla uno de los ocho colores. Cuando la primera imagen està 
acabada, utilizaremos una rutina corta en lenguaje màquina para copiar los atri- 
butos en los 768 octetos de la memoria reservada para su empieo posterior. 

Entonces utilizamos otta secuencia BASIC para imprimir una segunda ima¬ 
gen de celdillas coloreadas en bianco en la pantalla, y "emparejamos" los 
atributos de la segunda imagen con los de la primera. Los atributos de PAPER 
de la segunda imagen se desplazan 3 bits a la derecha (a la posición de 
INI<) y a continuación se mezclan con los bits de PAPER y de BRIGHT de 
la primera imagen. 

Entonces se pone a 1 el bit de FLASH y se reemplaza el octeto completo 
del archivo de atributos. A partir de este momento, la celdilla en cuestión em- 
pieza a parpadear (FLASH) entte los dos colores proporcionados por las imà- 
genes (éstos pueden, desde luego, ser los mismos). 

Puede ser util un diagrama de composición del nuevo octeto de atributo: 

F B 

L R 

A I 

S G 



para Flash Imagen 1 Imagen 2 

Està tècnica tiene la ventaja sobre las pantallas de carga convencionales 
de que se necesita ùnicamente el archivo de atributos de 768 octetos, en com- 
paración con los 6,75K (6912 octetos) de memoria que ocupa la pantalla de 
carga estàndar. De està forma se puede cargar la pantalla en la novena parte del 
riempo que se tardarla normalmente, o unos 5 segundos, pasando ràpidamente 
a cargar el juego propiamente. 

Se empieo por primera vez comercialmente una pantalla de carga "animada" 
en el conocido Manie Miner de Bug Byte, ahora publicado por Software Pro- 
jeets. Las dos imàgenes que se utilizaron fueron dos rótulos coloreados de las 
palabras "Manie" y "Miner". 

Bueno, eso es todo sobre la teoria, asl que <fqué le parece algo sobre len¬ 
guaje màquina? Primero necesitamos una rutina de desplazamiento de un bloque 
para copiar el archivo de atributos a memoria "segura", es decir, a la que he 
reservado corno los 768 octetos de la etiqueta IMAGE 1. 

10 : MOVER IMAGE1 DESDE ARCHIVO DE ATRIBUTOS 
20 : AL AREA DE ALMACENAMIENTO 
■^0 : 

40 : SE CONSERVA : A 
50 :SALIDA : HL=#5B00.BC=0 
60 : 
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8789 

210058 

70 ATTSTR 

LD 

HL,#5800 

878C 

119587 

80 

LD 

DE,IMAGEI 

878f 

010003 

90 

LD 

BC,#300 

8792 

EDB0 

100 

LDIR 


8794 

C9 

110 

RET 


8795 


120 IMAGE1 

DEFS 

768 


La rutina para "mezclar" la imagen almacenada con la que se encuentra 
en el archivo de atributos es casi igual de sencilla. BLEND coloca la nueva 
imagen de nuevo en el archivo de atributos y jésa es toda la explicación que 
necesita este listado! 


110058 
2 1FF 8 9 

010003 


MEZCLAR IMAGE1 DESDE ALMACENAMIENTO CON 
ATRIBUTOS ACTUALES 

SALIDA : DE=#5B00,BC=0,A=0 

•LEND LD DE,#5800 

LD HL,IMAGE1 

LD BC,# 3 0 0 

TOMAR OCTETO DE IMAGE1 


NXTATT LD 


A,(HL] 


ENMASCARAR SUS VALORES PAPEL Y BRILLO 


ALMACENAMIENTO DE NUEVO 
LD (HL),A 

TOMAR ATRIBUTOS ACTUALES 
LD A,(DE) 

CAMBIAR LOS BITS DE PAPEL A BITS DE 
TINTA Y ENMASCARARLOS 


MEZCLAR ESTOS BITS CON LOS DE 
PAPEL Y BRILLO DE IMAGE1 


PONER FLASH 1 


ALMACENAR EL OCTETO ACABADO EN ARCH. ATRI. 
LD (DE),A 

REPETIR PARA LA SIGUIENTE CELDILLA 
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8A1 7 B1 
8A1 8 20EB 
8A1A C9 


530 

540 

550 


OR 

JR 

RET 


C 

NZ,NXTATT 


Una vez que la imagen final ha sido creada en el archivo de atributos 
puede, o salvar (SAVE) los octetos directamente en la cinta utilizando: 

; SAVE (NOMBRE) CODE 22528,768 

o, si ha estado utilizando las dos lineas inferiores y no quiere que se estropeen 
con los mensajes de la cinta, entonces empiee ATTSTR de nuevo para desplazar 
los atributos a memoria "segura" que no sea afectada por la pantalla, y sàl- 
velos (SAVE) desde alli. 
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5 

Exploración 
del teclado 


En este capftulo explicaré corno es el M mapa" del teclado y corno se leen las 
teclas o grupos de ellas en lenguaje màquina. 

Los que tengan mas idea de numeros se habràn dado cuenta de que el 
Spectrum tiene 40 teclas. Estas aparecen en cuatro filas de 10, pero el ordenador 
encuentra mas fàcil considerarlas corno 8 medias filas de 5 teclas, porque hay 
menos de 10 bits en un octeto. 

Si alguna vez se ha atrevido a quitar la tapa de su Spectrum (una cosa 
que no se recomienda, ya que este detalle anula su garantia), habrà visto que el 
teclado està conectado con la placa del circuito impreso con dos cables de cinta 
con aspecto bastante endeble. Un examen mas detallado revela que uno de éstos 
tiene 8 pistas y el otro 5. De hecho, cada pista del mayor de los cables està 
conectada a uno de los bits 8 a 15 (el octeto de mayor peso) del bus de 
direcciones, mientras que el cable màs pequeno està conectado a los 5 bits 
inferiores (0 a 4) del bus de datos. 

Cuando el Spectrum realiza una exploración completa del teclado (cada 
50-avo de segundo), el proceso que efectua es corno sigue. Aplica una "corriente" 
a cada una de las lineas de dirección por turno. Ahora cada una de las 5 teclas 
de la media fila correspondiente puede considerarse corno un interruptor conec¬ 
tado entre una de las 5 lineas de datos y la linea de direcciones, permitiendo 
que la corriente circule cuando se encuentra pulsada. El ordenador lee las 5 li- 
neas de datos, y si la corriente llega por una linea, sabe que se encuentra pul¬ 
sada la teda correspondiente, y actua en consecuencia. 

Etiquetamos las lineas de direcciones (por convenio) de A8 a Al 5 y las 
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lineas de datos DO a D4. Las lineas de direcciones estàn asignadas a las me 
dias filas de la siguiente forma: 


All 


A12 0 


AIO 


Y 


A13 


A9 


H A14 ENTER 


Caps A8 


V 


B A15 Space 


Cuando queremos leer una media fila en particular, enviamos su linea de 
direcciones baja (cero). De la misma forma, cuando se pulsa una teda en està 
media fila, su linea de datos està baja (cero). Si no, està alta (uno). 

Las lineas de datos se adjuntan a cualquier media fila con el bit inferior 
(DO) en la parte de fuera, contando hacia dentro. Por tanto, la forma del mapa 
para la segunda fila (por ej empio) es la siguiente: 


DO DI D2 D3 D4 D4 D3 D2 DI DO 


Y 

U 

I 

0 

P 

_1 


Q 

w 


E 

R 


T 







AIO Al3 


Bueno, acabada la teoria, pasaremos a la pràctica: el teclado en si es selec- 
cionado (a diferencia de otros periféricos tales corno un microdiskette o una 
impresora) enviando la linea de direcciones AO baja. Por tanto, el octeto de 
menor peso de nuestra dirección del puerto de entrada es #FE y, o bien u tili za- 
mos la instrucción: 

IN A(#0FE) 

o bien cargamos #0FE en el registro C y utilizamos 

IN r,(C) 

donde r es un registro simple. Sin embargo, primero tenemos que cargar el oc¬ 
teto de mayor peso de la dirección en A o B (dependiendo de la instrucción 
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que estemos utilizando). Por ejemplo, supongamos que queremos leer la media 
fila que va desde A hasta C. Està tiene la linea A9 (bit 1 del octeto de mayor 
peso), asi que cargamos nuestro registro con el nùmero binario 1111 1101 = 
#FD. 

Por consiguiente, un fragmento apropiado para leer la media fila seria: 

LD A, #FD 
IN A,(#FE) 

Para su provecho, he aqui una tabla de octetos de mayor peso para leer cada 
media fila. 


MEDIA FILA 

LINEA 

BIT 

OCTETO 
MAYOR P. 

BITS 

CAPS SHIFT-V 

A8 

0 

FE 

= 

1 

1 

1 

1 

1 

1 

1 

0 

A-G 

A9 

1 

FD 

= 

1 

1 

1 

1 

1 

1 

0 

1 

Q-T 

AIO 

2 

FB 

= 

1 

1 

1 

1 

1 

0 

1 

1 

1 -5 

All 

3 

F7 

= 

1 

1 

1 

1 

0 

1 

1 

1 

6-0 

A12 

4 

EF 

= 

1 

1 

1 

0 

1 

1 

1 

1 

Y-P 

A13 

5 

DF 

= 

1 

1 

0 

1 

1 

1 

1 

1 

H-ENTER 

A14 

6 

BF 

= 

1 

0 

1 

1 

1 

1 

1 

1 

B-SPACE 

A15 

7 

7F 

= 

0 

1 

1 

1 

1 

1 

1 

1 


Ahora podemos elaborar un fragmento de programa para comprobar la 
teda BREAK (SPACE). Para probarla por si sola, en vez de con CAPS SHIFT, 
utilizamos 

LD A,#7F 

IN A,(#FE) 

RRA ; PONE DO EN EL CARRY 

JP NC,BREAK ; BREAK SI D0 = 0 

Mientras estamos con el tema de BREAK, le puede interesar saber que, 
debido a una casualidad del diseno de los circuitos electrónicos del Spectrum, 
es posible hacer un BREAK (interrupción de la ejecución) al ordenador en 
BASIC sin pulsar realmente la teda BREAK. Por alguna razón, al pulsar CAPS 
SHIFT con cualquiera de las siguientes parejas de teclas hace que DO se ponga 
baja en todos los casos que se envie Al5 baja, haciendo que el Spectrum crea 
que se està pulsando BREAK. 

He aqui las cuatro combinaciones màgicas: 

CAPS SHIFT con Z y SYMBOL SHIFT 
CAPS SHIFT con X y M 
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CAPS SHIFT con C y N 
CAPS SHIFT con Vy B 


Asi que ya sabe lo que tiene que hacer la próxima vez que su teda BREAK 
se estropee. Por cierto, vera que si toma cualquier fila entera de teclas, a continua- 
ción pulsa dos cualesquiera de ellas que estén ligadas a la misma linea de datos, 

y luego pulsa cualquier otra teda de la misma fila, al Spectrum le parecerà 

que también se ha pulsado la otra teda de esa fila de la misma linea de datos. 

Esto puede parecer un poco complicado, por tanto, voy a dar un ejemplo. Pulse 

T e Y a la vez (ambas de la linea de datos D4 de la segunda fila). Ahora 
pulse W (en DI). E1 ordenador pensarà que también se està pulsando 0, puesto 
que también està en la linea DI. Esto tiene poca utilidad en la pràctica, pero 
resulta fascinante. 

Es posible leer màs de media fila de una vez, simplemente reinicializando 
màs de un bit del octeto de mayor peso de la dirección de entrada. Por 
ejemplo, para leer la fila inferior completa (lineas A8 y Al5), el valor seria el 
nùmero binario 

; Olii 1110 = #7E 


El valor devuelto se determina corno se indica a continuación. Si se pulsa 
cualquiera de las teclas ligadas a una linea de datos en particular, entonces el bit 
correspondiente es cero. En caso contrario, està a uno. Por tanto, si estamos 
explorando las dos filas inferiores del teclado, entonces se reinicializarà DI si 
se pulsa cualquiera de las teclas Z, S, L y SYMBOL SHIFT. 

Esto nos lleva a una forma fàcil de verificar si està pulsada cualquier teda 
del teclado, corno podria necesitarse antes del principio de un juego nuevo. 


XOR A ; A = 0, POR LO TANTO BUSCA TODAS MEDIAS FILAS 


WATT 


IN A ( #FE) ;LEER TABLA 

CPL ;DESENMASCARAR LOS BITS NECESARIOS Y 
AND #1F ; COMPROBAR TODOS LOS UNOS 
JP NZ,GO ; SALTAR SI TECLA PULSADA 
JR WAIT 


Si se està pulsando una teda, entonces se inicializarà la bandera cero y se 
harà un salto para empezar el juego o cualquier otra cosa que desee. En caso 
contrario, la rutina volverà a WAIT con el registro A conteniendo cero de nuevo. 

Ahora tenemos toda la información necesaria para disenar una rutina com¬ 
pleta de exploración del teclado. Como ejemplo, describiré el desarrollo de una 
rutina de juegos, que proporciona un control en 8 direcciones y un botón de 
"disparo". 

Utilizaré las teclas 1 para arriba, A para abajo, I para izquierda, P para 
derecha y cualquier teda de la fila inferior para "disparo", es decir: 
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A e I 


* 

A 


A y P 


CAPS SHIFT "DISPARO" SPACE 


La mtina devolverà un "código de control" que dependerà de qué teclas de 
control estén pulsadas. Asignando un bit del código a cada una de las 4 direc- 
ciones principales arriba, abajo, izquierda y derecha, y un bit para nuestra 
"barra de disparo", podemos denotar todas las demàs direcciones haciendo las 
combinaciones de estos 5 bits. He asignado los bits corno sigue: 


BIT 

CONTROL 

0 

DERECHA 

1 

IZQUIERDA 

2 

ABAJO 

3 

ARRIBA 

4 

DISPARO 


De està forma los valores devueltos seràn corno se indica a continuación: 



+ 16 CUANDO SE PULSA "DISPARO" 
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Los tres bits de mas en el código seràn, por supuesto, ceros. Observe que 
puesto que "Noreste" es una combinación de hacia arriba y a la derecha, el 
código de control correspondiente es 8 + 1 = 9. De la misma forma para las 
otras direcciones diagonales. 

Ahora bien, està darò que hay algunos valores de control que no tendrfan 
sentido. Por ejemplo, el valor 3 (= 1 + 2) indicarla un deseo de ir a la izquier- 
da y a la derecha a la vez. El usuario ha pulsado demasiadas teclas y, en 
lugar de una rutina que diera prioridad a una de las direcciones, seria mas 
justo que se ignorasen ambas pulsaciones de las teclas. Esto se puede hacer 
damando a la subrutina CHECK dos veces seguidas; una vez para izquierda- 
derecha y otra para arriba-abajo. Al entrar a CHECK, el registro B contiene 
una "mascara" para los dos bits que deseamos examinar. Estamos comprobando 
el código binario "no vàlido" 11, y para elio utilizamos el fragmento: 

CHECK LD A,C ;C CONTIENE EL CODIGO DE CONTROL 

CPL 

AND B 
RET NZ 

que vuelve si se ve que el control es vàddo. En caso contrario, hemos encon- 
trado el código no vàlido 11 en C, y la rutina completa su tarea al volver a 
inicializar los bits molestos. Para elio: 

LD A, B 

XOR C 

LD C, A 

RET 


El resto del listado de la rutina se expdca solo y es muy demostrativo. Por 
tanto, helo aqui 




10 

ENTRADA 

NINGUNA 



20 

SE CONSERVAN: DE,HL 



30 

SALIDA:C 

=CODIGO DE CONTROL,B=12 



40 





50 

LEER MEDIA FILA Y-P 



60 



8B2E 

3EDF 

70 SCAN1 

LD A,#DF 

8B30 

DBFE 

80 


IN A,(#FE) 



90 





100 

ENMASCARAR TECLAS I Y P 



1 10 



8B32 

2F 

120 


CPL 

8B33 

E605 

130 


AND 5 



140 





150 

PONER I 

EN BIT 1, Y P EN EL CARRY 



160 



8B35 

1F 

170 


RRA 



180 





190 

MOVER P 

DESDE EL CARRY AL BIT 0 



200 



8B36 

CE 00 

2 1 0 


ADC A,0 
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ALMACENAR EL CONTROL IZQ. Y DER. EN 


220 

230 

240 


8B38 

4f 

250 

LD 

C, A 



260 

? 




270 

;LEER LA TECLA A 




280 



8B39 

3EFD 

290 

LD 

A, #FD 

8b3b 

DBFE 

300 

IN 

A, (#FE) 

8b3D 

1 F 

310 

RRA 




320 





330 

•SALTAR SI A NO 

ESTÀ PULSADA 



340 

? 


8b3E 

3802 

350 

JR 

C,NDOWN 

8b40 

CBD 1 

360 

SET 

2 , C 



370 





380 

•LEER TECLA 1 




390 



8b42 

3EF7 

400 

NDOWN LD 

A, #F7 

8b44 

DBFE 

410 

IN 

A, (#FE) 

8b46 

1F 

420 

RRA 




430 

; 




440 

; SALTAR SI 1 NO ESTÀ PULSADO 



450 

; 


8b47 

3802 

460 

JR 

C, NUP 

8b49 

CBD9 

470 

SET 

3,C 



480 

; 




490 

;COMPROBAR SI ESTAN PULSADAS 



500 

; A LA VEZ IZQ. Y 

DER . 



510 

; 


8b4b 

0603 

520 

NUP LD 

B, 3 

8b4d 

CD608B 

530 

CALL 

CHECK 



540 

;COMPROBAR SI ESTAN PULSADAS 



550 

; A LA VEZ ARRIBA 

Y ABAJO 

8b50 

060C 

560 

LD 

B, 12 

8B52 

CD608B 

570 

CALL 

CHECK 



580 

? 




590 

;LEER LA FILA DE 

ABAJO 



600 

7 


8B55 

3E7E 

610 

LD 

A, # 7 E 

8B57 

DBFE 

620 

IN 

A, ( #FE ) 

8b59 

2F 

630 

CPL 


8b5A 

E6 1F 

640 

AND 

#1F 



650 

; 




660 

;VOLVER EXCEPTO SI "DISPARO" 



670 

; 


8b5C 

C8 

680 

RET 

Z 

8B5D 

CBE1 

690 

SET 

4, C 

8B5F 

C9 

700 

RET 




710 

; 




720 

;COMPROBAR DIRECCIONES "IMPOSIBLES 



730 

; 


8B60 

79 

740 

CHECK LD 

A, C 

8b6 1 

2F 

750 

CPL 


8b62 

AO 

760 

AND 

B 

8b63 

CO 

770 

RET 

NZ 

8b64 

78 

780 

LD 

A, B 

8b65 

A9 

790 

XOR 

C 

8b66 

4f 

800 

LD 

C, A 

8b67 

C9 

810 

RET 
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6 

Teclas de control 
seleccionables 
por el jugador 


En el ùltimo capitulo he concluido con un ejempio de còrno se desarrolla 
una rutina tipica de control del teclado de juegos, utilizando una selección pre- 
determinada de teclas. A menudo puede ser una ventaja, en cuanto a cuestiones 
de comodidad, si se permite al usuario seleccionar las teclas de control que 
mas le convengan y el nùmero de las mismas. En este capitulo proporciono 
las rutinas fundamentales para permitirle hacer esto. 

Imaginese, si quiere, a nuestro jugador tipico, inclinado sobre el teclado y a 
la espera de cualquier comando, mientras que el juego termina su recorrido largo 
y tortuoso desde la cinta a la memoria. Se le pide que pulse cualquier teda 
(corno ocurre siempre). Ahora se le pide que seleccione una teda para controlar 
(digamos) el movimiento hacia arriba de su nave espacial. En ese momento, 
tenemos que esperar que deje de pulsar "cualquier teda". El siguiente fragmento 
bastarà, y es equivalente a la linea BASIC. 

; 10 IF INKEY$ <> " " THEN GO TO 10 


WAIT XOR 
IN 
CPL 
AND 
JR 


A 

A,(#FE) ;LEER EL TECLADO COMPLETO 

; SI CUALQUIER TECLA PULSADA 
# 1 F ; ENTONCES ESPERA 

NZ,WAIT 


Ahora estamos preparados para seleccionar el control 


"hacia arriba". Lo 
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que se necesita es una rutina que devuelva un valor ùnico para cada teda que 
se pulse, y que nos diga cuàndo no està siendo pulsada mas de una teda. E1 
valor de la teda sera almacenado para su uso durante el juego, mientras una 
rutina independiente nos indica si se pulsa la teda asociada con ese valor. 

La siguiente rutina, KFIND1, devuelve el valor de la teda en el registro D 
con la bandera cero puesta a uno, si se pulsa solamente una teda. Si no se pulsa 
ninguna teda, entonces la bandera cero sera puesta a cero indicando un error. 
Los valores de teclas, comprendidos en el intervalo desde #0 hasta #27 se 
encuentran asignados corno se indica a continuación (todos los valores estàn 
expresados en hexadecimal): 


24 

1C 

14 

C 

4 

3 


B 

13 

1B 


23 









| 25 | [ 

1D 1 

15 

D 

5 

2 

A 

12 

3ài r 

22 










26 


1E 


16 


E 


6 


1 

[ 

9 


11 


19 

21 












27 

1F 

17 

F 

7 

0 


8 

10 

18 


20 



A simple vista, està presentación puede parecer un poco absurda hasta que 
se dé cuenta de que hace que las cosas sean mas fàciles para la rutina de 
control del juego posterior. Mirando a los valores hex cuidadosamente, vemos 
que los 3 bits de menor peso nos dicen en qué media fila se halla la teda (y por 
tanto, qué puerto hay que direccionar) mientras que los bits 3, 4 y 5 nos indican 
qué posición tiene la teda en esa media fila. He aqui KFIND1: 


8AC5 112FFF 
8AC8 01FEFE 


8ACB ED78 
8ACD 2F 
8ACE E61F 


8AD0 280C 


8AD2 14 


10 ;ENTRADA : NINGUNA 
20 ; SE CONSERVA : L 

30 ;SALIDA : D=C0DIG0 TECLA, D = #FF SI NINGUNA TECLA PULSADA 
40 ; BANDERA CERO DESACTIVADA SI MAS DE UNA TECLA PULSADA 
50 ; SI NO, BANDERA CERO ACTIVADA Y A = D 
60 ; 

70 ; 

80 KFIND1 LD DE,#FF2F 

90 LD BC, #FEFE 

100 ; 

110 ; D COMIENZA EN "NINGUNA TECLA" Y CONTIENE EL VALOR INICIAL D 
E 

120 ; TECLA PARA CADA MEDIA-FILA 

130 ; BC CONTIENE LA DIRECCION DEL PUERTO 

140 ; 

150 ;LEER UNA MEDIA-FILA 
160 ; 


170 

180 

NXHALF 

IN 

CPL 

A, (C ) 

190 

200 


AND 

# 1F 

2 1 0 
220 

•SALTAR 

SI NINGUNA 

TECLA PULSADA 

230 

240 


JR 

Z, NPRESS 

250 

;COMPROBAR SI MAS 

DE UNA TECLA PULSADA 

260 

270 


INC 

D 
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280 

• 





290 

; SI ES 

ASI VOLVER 

CON Z A CERO 

8AD3 

CO 

300 


RET 

NZ 



310 

; 





320 

; 





330 

;CALCULAR VALOR 

DE TECLA 

8AD4 

67 

340 


LD 

H, A 

8AD5 

7B 

350 


LD 

A,E 

8AD6 

D6 08 

360 

KLOOP 

SUB 

8 

8AD8 

CB3C 

370 


SRL 

H 

8ADA 

3 0F A 

380 


JR 

NC,KLOOP 



390 

; 





400 

;COMPROBAR SI MAS DE UNA TECLA PULSADA 



410 

; 



8ADC 

CO 

420 


RET 

NZ 



430 

; 





440 

; ALMACENAR VALOR 

DE TECLA EN D 

8ADD 

57 

450 


LD 

D, A 



460 

; 





470 

;COMPROBAR LAS OTRAS 7 MEDIAS FILAS 



480 

• 



8ADE 

1 D 

490 

NPRESS 

DEC 

E 

8ADF 

CB00 

500 


RLC 

B 

8AE1 

38E8 

510 


JR 

C,NXHALF 



520 

? 





530 

? 





540 

;PONER 

BANDERA CERO 

8AE3 

BF 

550 


CP 

A 

8AE4 

C8 

560 


RET 

Z 


Un fragmento tìpico para esperar una pulsación vàlida de teda en contes- 
tación a nuestro mensaje "por favor elija una teda para el movimiento hacia 


arriba" 

seria: 



REPT 

CALL 

KFIND1 

; BUSCA TECLADO 


JR 

NZ,REPT 

;REPETIR SI ENTRADA ILEGAL 


INC 

D 

; REPETIR SI NINGUNA TECLA ESTABA 


JR 

Z,REPT 

;PULSADA 


DEC 

D 



He llamado KTEST1 a la rutina complementaria de KFIND1. Cada vez 
que el Spectrum necesita un control de teclado durante un juego, debemos 
llamar a KTEST1 una vez para cada teda de control seleccionada. La rutina 
leerà dicha teda y volverà con la bandera carry (acarreo) puesta a cero si està 
pulsada, o a uno en caso contrario. El ùnico paràmetro que KTEST1 necesita es 
el valor de la teda que estamos comprobando, introducido en el acumulador. 
He aqui el listado, seguido por un ejemplo: 


893C 4f 


10 

20 

30 

40 

50 

60 

70 

80 

90 


ENTRADA:A=VAL0R DE LA PRUEBA DE LA TECLA 
SE CONSERVAN : HL,DE 

SALIDA :CARRY A CERO SI TECLA PULSADA 
SI NO BC= 0 


KTEST1 LD C, A 

•PONER B=16-(N0. LINEA DIRECCION) 
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100 

• 





893D 

E607 

110 

AND 

7 




893F 

3C 

120 

INC 

A 




8940 

47 

130 

LD 

B, A 






140 

; 







150 

;PONER C=(NO. LINEA DE DAT0S)+1 






160 

;ES DECIR PONER C 

=5-INT(C/8) 






170 

; 





8941 

CB3 9 

180 

SRL 

C 




8943 

CB3 9 

190 

SRL 

C 




8945 

CB3 9 

200 

SRL 

C 




8947 

3E05 

210 

LD 

A,5 




8949 

91 

220 

SUB 

C 




894A 

4f 

230 

LD 

C, A 






240 

; CALCULAR EL OCTETO DE MAYOR PESO 

DE 

LA 

DIRECCION DEL PUERTO 



250 






894b 

3EFE 

260 

LD 

A, #FE 




894d 

0F 

270 

HIFIND RRCA 





894e 

1 OFD 

280 

DJNZ 

HIFIND 






290 

? 







300 

;LEER MEDIA-FILA 







310 






8950 

DBFE 

320 

IN 

A, (#FE ) 






330 








340 

•PONER EL BIT DE 

TECLA NECESITADO 

EN 

EL 

CARRY 



350 






8952 

1F 

360 

NXKEY RRA 





8953 

OD 

370 

DEC 

C 




8954 

20FC 

380 

JR 

NZ,NXKEY 




8956 

C9 

390 

RET 






Como ejemplo, supongamos que nuestro juego implica un movimiento en 
8 direcciones y un botón de disparo. Para esto, nuestro usuario tendrà que haber 
escogido 5 teclas de control, para arriba, abajo, izquierda, derecha y disparo. 
Almacenemos los 5 valores de control elegidos en una tabla apuntada por HL, 
para poder disparar, subir, bajar, desplazarse a la izquierda, o a la derecha. 
Utilizaremos los mismos "valores de control" que los del capitulo anterior, es decir: 

8 



Una rutina adecuada 
la siguiente: 


para elaborar el valor de control en el registro E es 


LD E, 8 

NXTKEY LD A, (HL ) 


; E ES TAMBIEN UN CONTADOR 
; TOMAR VALOR DE TECLA 
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INC 

HL 


CALL 

KTEST1 ; BUSCAR 

UNA TECLA PULSADA 

CCF 

; 1=PULSADA, 0 = NO 


RL 

E ;PONER 

BIT DE TECLA EN E 

JR 

NC,NXTKEY;REPETIR 

PARA LAS OTRAS 

RET 

; 4 TECLAS 



Observe que he hecho que el registro sea "doble" corno contador del bucle. 
E1 bit inicial 3 es el bit puesto a uno mas alto, y se desplaza a la izquierda 
una vez a cada paso por el bucle hasta que después de 5 pasadas cae en el 
"carry" (acarreo) provocando que la rutina vuelva con el valor de control com¬ 
pleto en el registro E. Las verificaciones usuales de direcciones "imposibles" 
tales corno izquierda y derecha pueden llevarse a cabo entonces. 
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7 

Todo cuanto debe 

saber sobre 
interrupciones 


Como probablemente sabrà, el microprocesador Z-80 nos ofrece una selec- 
ción de tres modos de interrupción enmascarables, denominados segun las ins- 
trucciones que los seleccionan: IMO, IMI e IM2. 

La instrucción IMO en el Spectrum es bastante redundante. En este modo, 
el Z-80 espera una instrucción de algun perifèrico para empezar a realizar su 
camino por el bus de datos durante el ciclo de interrupción acknowledge. Sin 
embargo, en el caso del Spectrum, el bus de datos generalmente contiene #FF 
durante una interrupción, y esto es el código de un octeto Hex para RST #38, 
que el Z-80 ejecuta en su debido riempo. La razón por la que he dicho que IMO 
es redundante es que IMI realiza exactamente la misma función que RST #38 
cuando ocurre una interrupción, sin tener en cuenta el contenido del bus de 
datos en el momento. 

El Spectrum normalmente opera en el modo uno de interrupciones, y en 
cualquier momento que ocurra una interrupción, la rutina en #38 procede a 
incrementar el contador del cuadro de la televisión y explora el teclado, actua- 
lizando todas las diferentes variables del sistema asociadas con elio. El numero 
de las interrupciones que han sido aceptadas desde que se encendió el ordena- 
dor està contenido en la variable del sistema de 3-octetos FRAMES, en #5C78, 
23672 decimai. El empieo de este contador està bien documentado tanto en el 
manual del Spectrum corno en otros libros. Por està razón, no haré màs comen- 
tarios sobre este tema. 

A menos que tenga ganas de utilizar el contador de cuadro o la explora- 


59 




ción del teclado mientras ejecuta su programa en lenguaje màquina, deberia em- 
plear la instrucción DI para desactivar las interrupciones que de otra forma le 
harfan perder riempo. Esto tiene especial importancia cuando està generando 
un sonido o haciendo uso de un trozo de programa que requiere precisión 
en el riempo; en caso contrario oirà un zumbido de 50 Hz causado por lagunas 
en el sonido mientras se procesan las interrupciones. 

El modo de interrupción enmascarado IM2 es el mas complejo y potente. 
Cuando ocurre una interrupción, el Z-80 toma el octeto que se encuentra en 
el bus de datos corno la parte menos significativa (de menor peso) de una direc- 
ción y el contenido del registro I, o "registro vector de interrupción" corno 
octeto de mayor peso. 

Està dirección apunta a una segunda dirección almacenada (octeto de menor 
peso primero) en la memoria, que luego se carga en el contador de programa. 
A continuación comienza la ejecución de la subrutina en esa dirección. Como 
ejempio, supongamos que el registro I contema #FE, el bus de datos contenia 
#40 y que la dirección almacenada en #FE40 era #0038. Entonces el Z-80 
construiria la dirección #FE40 partiendo del registro vector de interrupción y 
del bus de datos. Tomaria la dirección almacenada en #FE40 y saltarla a 
#0038, que da la casualidad que es la rutina normal de interrupción. 

De hecho, corno el bus de datos generalmente contiene #FF durante una 
interrupción, todas nuestras "direcciones de vector" terminaràn en #FF. Un 
poco de experiencia le mostrarà que para evitar una imagen "distorsionada" o 
"con nieve" en la pantalla del Spectrum, el registro I debe contener el octeto 
de mayor peso de una dirección de la ROM o de los 32 K superiores de la RAM. 



I = (Hex) 

Direodón 
Vector (Hex) 

Contenido 

(Hex) 

Dirección 

(Decimai) 

(1) 

2B 

2BFF 

5C65 

23563 

(2) 

29 

29 FF 

5C76 

23670 

(3) 

2E 

2EFF 

5CA1 

23713 

(4) 

19 

19FF 

5D22 

23842 


14 

14FF 

6469 

25705 


1E 

1EFF 

67CD 

26573 


0F 

0FFF 

6D18 

27928 


06 

06 FF 

71DD 

29149 


28 

28FF 

7E5C 

32348 


(1) Los 3 octetos necesarios para una instrucción de salto a almacenar en #5C65 se encuentran con- 

tenidos normalmente en las variables del sistema STKEND y BREG y corno tales no deben alterarse si 

pretende utilizar la pila de la calculadora o volver al BASIC después de su programa en lenguaje màquina. 

(2) Si su programa es un hibrido BASIC/lenguaje-màquina, entonces observe que los dos primeros 

octetos de la dirección #5C76 contienen la variable SEED (semilla) para el generador de nùmeros seudo- 
aleatorios del BASIC y se modificarà al utilizar RANDOMIZE o con el empieo de la función RND. El 

tercer octeto después de #5C76 es la parte menos significativa (de menor peso) de FRAMES, por tanto, 
debe asegurarse de que no se produzca ninguna interrupción IMI en addante una vez que se haya definido 
el interceptor de interrupciones a partir de #5C76. De lo contrario, la dirección de cualquier instrucción 
de salto insertada en #5C76 aumentarla j256 cada 20 ms! 

(3) El cuarto registro de 5 octetos del àrea de la memoria de la calculadora empieza en #5CAI, por 
tanto, de nuevo, no utilice està dirección si piensa emplear cualquiera de las rutinas de la calculadora de 
la ROM en su programa en lenguaje màquina. 

(4) Si desea volver a, y utilizar, el BASIC, entonces también queda descartada la dirección #5D22. 

Sendllamente es demasiado baja: pruebe con el comando CLEAR 23841 jy verà lo que quiero decir! 
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Esto nos limita a los rangos desde #00 a #3F y desde #80 a #FF 
para I. Ahora bien, si tiene una màquina con 48K, no deberia serie dificil 
encontrar una dirección de vector sin ocupar entre las 127 opciones posibles 
de los 32K superiores de la RAM (observe que pràcticamente no podemos 
utilizar I = #FF, ya que la dirección almacenada a partir de #FFFF tendria 
su octeto de mayor peso en la posición 0, que se encuentra en la ROM). Sin 
embargo, si sólo se tiene una màquina con 16K o no hay sitio en los 32K 
superiores de la RAM, entonces tenemos que echar mano a las direcciones de 
vector de la ROM. 

De estas 63 direcciones de vector (de nuevo no puede utilizarse realmente 
#3F, ya que el octeto de mayor peso de la dirección seria el primer octeto 
de la RAM de la pantalla), solamente 13 apuntan a direcciones de los 16K in- 
feriores de la RAM. 4 de estos 13 estàn en la memoria de la pantalla, dejando 
elección entre las 9 direcciones de la pàgina anterior. 

El otro tipo de interrupción no implementado en el ZX Spectrum es el 
NMI, o interrupción no enmascarable. Si un Z-80 recibe una NMI, acaba la 
instrucción que està efectuando y llama la rutina en #66. 

En el Spectrum està rutina (En ROM) es la fuente de bastantes quebra- 
deros de cabeza entre los fabricantes de periféricos hardware. La rutina es corno 
sigue: 


#0066 

PUSH 

AF 


PUSH 

HL 


LD 

HL,(#5CB0) 


LD 

A, H 


OR 

L 


* JR 

N Z , # 0 0 7 0 


JP 

(HL) 

#0070 

POP 

HL 


POP 

RETN 

AF 


La instrucción etiquetada con un * deberia haber sido 
JR Z,#0070 

y entonces habria causado un salto a la dirección contenida en #5CB0 (que, 
por cierto, se habla de ella en el manual del Spectrum corno "no utilizada"), 
a menos que la dirección fuera cero, en cuyo caso se hubiera hecho un retorno. 
En vez de elio, tal y corno està, la ùnica utilidad posible de un NMI en el 
Spectrum es causar una total puesta a cero (reset) del sistema si la dirección 
contenida en #5CB0 es cero, corno ocurre generalmente. 

Dentro del Z-80 hay dos bits especiales llamados flip-flops de interrupción 
y se denominan IFF1 e IFF2. Normalmente se manejan juntos bajo el nombre 
colectivo de IFF, excepto durante un NMI, en cuyo caso IFF2 almacena el valor 
previo de IFF1, mientras que éste se pone a cero durante la duración de la NMI. 
La función de IFF es indicar al Z-80 si se permiten en ese momento las 
interrupciones enmascarables. Si estàn puestos a 1 se autorizan las interrupcio- 
nes. Si estàn puestos a cero (enmascarados), entonces no se detect aràn las 
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interrupciones enmascarables. Por tanto, obviamente EI los pone a 1 mientras 
que DI los pone a cero. Para ser totalmente preciso, los flip-flops estàn siempre 
puestos a cero mientras se està procesando DI o EI, y las interrupciones no se 
activan hasta que se haya ejecutado la instrucción de DESPUES de EI. Merece la 
pena explicar la razón de todo esto. 

En cualquier momento que se acepte una interrupción, se pone a cero IFF 
automàticamente. Es, sin embargo, responsabilidad del programador reactivar las 
interrupciones antes de volver de la rutina de interrupciones con RETI. Podria 
causar un sinnumero de problemas si tuviera lugar una interrupción entre el 
momento de activarlas y la vuelta desde la ùltima, de ahi viene la "acción re- 
tardada" de EI para permitir que se efectue un retorno seguro, corno ocurre en: 

EI 

RETI 

el final estàndar de una rutina de interrupción. 

Una instmcción que a menudo se pasa por alto en los libros sobre el len- 
guaje de màquina del Spectrum es: 

LD A, R 

Esto a primera vista no parece tener ninguna utilidad, pero observando sus 
efectos en las banderas se demuestra lo contrario. Cuando se ejecuta la instruc¬ 
ción, la bandera de paridad/rebosamiento (P/V) se pone al contenido de IFF2. 
Por tanto, podemos utilizar la instrucción para que nos indique si se han acti- 
vado las interrupciones enmascarables o no. Cuando la bandera P/V està a uno, 
normalmente indica una paridad par (VYL-paritjj everì), mientras que cuando se 
pone a cero indica una paridad impar (PO -parity odd). 

Supongamos que deseamos conservar los contenidos de IFF mientras que 
desactivamos las interrupciones, para generar algun sonido "puro", y luego res- 
tauramos IFF. Un mètodo adecuado podria ser el siguiente: 

LD A,R ;PONER P/V A IFF 

PUSH AF ; ALMACENAR P/V 

DI ;INUTILIZAR INTERRUPCIONES 
; (PRODUCE SONIDO) 

POP AF ; RECUPERAR P/V 

JP PO,NOT-ON ; SI PE ENTONCES P/V-1, POR LO TANTO 

EI ;PONER IFF 

NOT-ON 

De està forma, si introducimos la rutina con las interrupciones enmasca- 
radas, entonces no estaràn activadas al final. La instrucción LD A,I afecta a la 
bandera P/V de la misma manera que LD A,R. 

Di) e antes que el bus de datos "usualmente” contiene #FF durante una 
interrupción. En el caso de un Spectrum aislado, nunca he visto que esto no sea 
lo que ocurre. Hay, sin embargo ciertos periféricos hardware que no decodifican 
correctamente senales de las lineas IORBQ y READ del Z-80, y corno resultado 
hacen que haya nùmeros variables en el bus de datos durante el ciclo de acknow- 
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ledge de la interrupción. Por cierto, estos periféricos no incluyen la impresora 
ZX ni el ZX Interface 1. 

Ahora bien, obviamente si el valor en el bus de datos cambia, entonces 
tendremos que establecer toda una tabla de vectores de interrupción en la me¬ 
moria para IM2, para que cualquiera de los posibles valores del bus provoque 
aun un salto a la dirección correcta. 

Si sabemos que el valor sera par, entonces sencillamente necesitamos una 
tabla de 128 direcciones de vector terminando en 00, 02, ..., #FE, conteniendo 
cada entrada la dirección de nuestra rutina de interrupciones. De la misma for¬ 
ma, si el bus de datos tuviera un valor impar, entonces tendriamos una tabla con 
un octeto mas alto de la memoria, de forma que las direcciones de vector ter- 
minasen en 01, 03, ..., #FF. 

Sin embargo, si el bus de datos contiene cualquiera de los 256 valores po¬ 
sibles, corno, por ejemplo, ocurre cuando se conecta un mando de juego 
(joystick) de Kempston Microelectronics al puerto del usuario, entonces tenemos 
que utilizar una tècnica ligeramente diferente. Cada uno de los 257 octetos de 
la tabla de vectores debe contener el mismo valor para que, sea cual sea la direc¬ 
ción del vector, par o impar, la dirección de interrupción siempre sea la misma. 
Por tanto, los octetos de mayor y menor peso de la dirección de la rutina de 
interrupciones deben ser los mismos. En caso de que esto no quede darò, su- 
pongamos corno contradicción que la dirección de interrupción es #89AB. Si 
elaboramos una tabla insertando està dirección 128 veces desde #FE00, entonces 
un valor par en el bus de datos causarla un salto correcto, pero un valor impar 
causarla un salto a #AB89: jobviamente no es lo que queremos! Observe 
que la tabla tiene 257 octetos de longitud, y no 256, puesto que debemos 
tener en cuenta que la dirección de vector termina en #FF, lo que causa que 
una entrada M se salga” a la siguiente pàgina de la memoria. 

Probablemente el valor mas adecuado para dar al registro I es #FE, 
utilizando la pàgina màs alta posible de RAM para la tabla de vector. Si 
llenamos entonces la tabla con #FD, una interrupción harà que haya un salto 
a #FDFD, que està justo 3 octetos antes del principio de la tabla. Ahora 
bien, tres octetos son justo lo suficiente para colocar una instrucción de salto en 
nuestra rutina de interrupción ”real". De està forma hemos confinado la memo¬ 
ria que se necesita para una interrupción IM2 a prueba de errores en un bloque 
continuo de 250 octetos, sin afectar la versatilidad de la interrupción de ninguna 
manera (jcon la excepción de anadir los lOT-estados de la instrucción JP al 
riempo del proceso ! ). 

He aqui una rutina adecuada para inicializar el sistema IM2 descrito arriba: 


INT 

LD 

HL,#FE00 

; CARGA TABLA 

EN #FE00 


LD 

BC,#00FD 

; CON 256 DE 

#FD 

LP 1 

LD 

(HL),C 




INC 

HL 




DJNZ 

LP 1 




LD 

(HL),C 

; LA 257-AVA 

ENTRADA 


LD 

A, #FE 

; DEJAR I = #FE 



LD 

I, A 




IM 

2 

;SELECCIONAR 

IM2 


RET 
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OEG #FDFD 

JP #0038 ; INSERTA SU PROPIA DIRECCION 

La tècnica anterior està muy bien si tiene 48K de RAM, pero no funciona- 
rà con una màquina que disponga de 16K. Como he mencionado antes, al 
apuntar el registro de vector de interrupción, cualquier pàgina de los 16K infe- 
riores de la RAM se obtendria "nieve" en la pantalla. Todo no se ha perdido, 
sin embargo, pues, aun en el caso de que haya por lo menos un perifèrico 
"granuja", el mando de juegos {joystick Kempston), hay una forma, aunque algo 
molesta y restringida, de usar el modo 2 de interrupción. 

El mando de juegos se "lee" normalmente en BASIC con un comando de 
la forma: 

; LET A= IN 31 

pero de hecho todo lo que se necesita para que el interfaz ponga un valor 
en el bus de datos es enviar la linea de dirección A5 bajada (conteniendo cero) 
de modo que para el comando 
; LET A= IN (31+64+128+256+512+1024) 

por ejemplo, se haria igual. Sin embargo, cuando A5 està alta, el mando de juegos 
no afectarà el contenido del bus de datos, y deberia resultar el valor normal 
#FF durante el acknowledge de interrupción. 

Bueno, con esto ya se acabó la teoria. ;Ahora còrno podemos asegurarnos 
que A5 esté alta siempre que ocurra una interrupción bajo IM2? Esto puede 
hacerse aseguràndose de que el contador de programa contiene una dirección que 
tiene el bit 5 puesto a uno antes de una interrupción, y ésta es la razón por la que 
dije que la tècnica era "algo molesta y restringida". 

En principio tenemos dos opciones una vez que el contador de programa 
està en un bloque de 32 octetos que tiene el bit 5 puesto a uno para sus direc- 
ciones; podemos, o bien llegar a una instrucción HALT mientras esperemos una 
interrupción, o podemos aprovechar el riempo haciendo algo ùtil corno generar 
un sonido. Si se erige la segunda opción, hay dos puntos principales que hay 
que recordar. 

Primero, no debemos permitir que el bit 5 de PC se ponga a cero; por 
tanto, la rutina debe o bien encontrarse en un bloque de 32 octetos, o riamar 
a otras subrurinas que estàn también en posiciones donde A5 esté alta. Se- 
gundo (y suponiendo que no deseamos malgastar el riempo con està rutina 
una vez que ha tenido lugar una interrupción), debemos verificar continuamente 
algun tipo de bandera que se ponga a uno por la rutina de interrupción, 
para que sepamos cuàndo se ha tornado una interrupción. 

Una vez que se ha descartado la interrupción, tenemos hasta unos 20 ms, 
que son muchisimo riempo en lenguaje màquina, para hacer tanto proceso 
"normal" corno queramos antes de volver para esperar la siguiente interrupción. 

A primera vista, todo el esfuerzo necesario para utilizar las interrupciones 
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IM2 en el Spectrum puede parecer que no merece la pena, pero en realidad 
tiene un amplio margen de utilidades. Son el concepto fundamental que hay 
detràs de muchas de las utilidades disponibles en el mercado, tales corno relojes 
de tiempo reai, rutinas TRACE, extensiones del BASIC, teclas de función defìni- 
bles por el usuario, y asi sucesivamente. 

Ademàs de todo esto, las interrupciones tienen la propiedad especial de que 
son generadas precisamente a la misma frecuencia que los cuadros que compo- 
nen la visualización en TV. Siempre ocurren cuando el haz de electrones està 
en el punto mas alto de su "retroceso al principio" desde la linea inferior hasta la 
superior de la pantalla, y en consecuencia podemos utilizar interrupciones para 
producir horizontes de pantalla completa (incluido el borde), animación de 
sprites sin temblores pixel a pixel , y color en resolución mas alta, para men- 
cionar sólo unas pocas de las posibilidades que se obtienen con el proceso sin- 
cronizado con TV. 
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8 

Discusión de técnicas 

de animación 
de "pixels" 


Desde que se lanzó el ZX Spectrum al mercado, la calidad de los juegos 
software que hay para él ha aumentado constantemente y, con elio, la calidad 
tècnica de la animación. El interés principal ha pasado del movimiento de un 
caràcter cada vez al de unos pocos pixels cada vez. Al mismo riempo, se ha 
exprimido el Spectrum mas y mas hasta muy cerca de sus limites de diseno, 
aranando los programadores hasta la ultima gota de velocidad del microproce- 
sador Z-80, en un esfuerzo para conseguir efectos especiales mas espectaculares 
que los del juego anterior. 

En los siguientes capitulos desarrollaré una serie muy potente de rutinas que 
le permitiràn conseguir una animación sin temblores y unos efectos especiales 
nunca vistos hasta ahora en el Spectrum. 

Antes de proseguir, recordemos còrno se genera la pantalla de TV. Aunque 
cuando vemos la TV vemos una imagen continua, de hecho sólo se trata de 
uno (en el caso de bianco y negro) o tres (en el caso de la mayoria de los 
televisores en color) rayos electrónicos que rastrean la pantalla a alta velocidad. 
Si no fuera por el fenòmeno humano de la persistencia de la visión, que "con¬ 
serva" en la retina del ojo la imagen generada por el haz el riempo sufìciente 
para que complete un "cuadro" de la TV (20 milésimas de segundo), entonces 
sólo veriamos un punto brillante iluminado que se moverla a gran velocidad, y 
las pantallas de televisión, tal corno las conocemos, no existirlan. 

En Espana, los televisores tienen una pantalla de 625 lineas. Esto quiere 
decir que las imàgenes de la televisión son transmitidas corno senales pa ra 625 11- 
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neas de exploración. Un televisor de tipo medio sólo visualiza unas 540 de estas 
Kneas de exploración; el resto estàn fuera, en la parte superior e inferior de su 
pantalla, y parte del riempo "libre” se consume en un periodo conocido corno 
"retroceso al principio", en el que los haces de electrones pasan desde la parte 
inferior de la pantalla a la parte superior, para producir el siguiente cuadro. 

Por cierto, algunas de las Kneas de exploración sobrantes se utilizan para 
transmitir datos en los servicios de teletexto. Un decodifìcador en su TV de 
teletexto convierte entonces los datos binarios en una imagen de pantalla com¬ 
pleta y la visualiza. Es el nùmero de Kneas de exploración disponibles para 
està caracteristica lo que limita la resolución y la elección de colores en los 
gràficos de teletexto: no hay bastante espacio para transmitir un teletexto en 
alta resolución con una velocidad en baudios aceptable. 

Bueno, antes de seguir con el tema, volvamos a la discusión de la generación 
de imagen. El chip responsable de la gestión de la TV en el Spectrum se llama 
ULA (XJncommitted Logic Array) y lo que hace es utilizar dos lineas de explora¬ 
ción por cada fila de la pantalla del Spectrum. Por tanto, el àrea del texto 
ocupa 2 x 192 = 384 Kneas de exploración; cerca del 70 por 100 de la altura de 
la pantalla y tarda alrededor del 61 por 100 de cada riempo de cuadro o 
12.288 ms en generarse. 

Ahora se preguntarà por qué estoy entrando en tanto detalle acerca de la 
visuaKzación de la TV. Bueno, en el curso de la animación "normal", por medio 
de una celda cada vez, nada de todo esto seria necesario: los caracteres apenas 
se mueven, unas 5 veces por segundo, o una vez por cada 10 cuadros o asi. 
Por consiguiente, no se observa ninguna interferencia significativa en la genera¬ 
ción de la visualización en la TV. 

Sin embargo, cada vez que movemos un caràcter, de algun modo debemos 
"poner en bianco" su imagen vieja e "imprimir" la nueva en el archivo de pan¬ 
talla. Si por casualidad la televisión està generando las Kneas de exploración 
en las que estamos imprimiendo y borrando, entonces tomarà la imagen de la 
memoria, cualquiera que sea el estado en que se encuentre, y la visualizarà 
en la pantalla. El resultado es que para un cuadro corriente se visualizarà una 
imagen incompleta. 

Como ya he dicho, està interferencia no se observa para un movimiento 
de baja frecuencia. Sin embargo, la animación de pixels necesita hasta 8 veces 
la frecuencia de movimiento para mover un caràcter a la misma velocidad que 
por celdillas, y éste tiene corno resultado unas sombras y temblores inacepta- 
bles al utilizar técnicas estàndar. 

Una solución parcial para el problema es resolver el movimiento en tér- 
minos de Kneas de exploración de TV. Usted toma cada fila que pudiera ser 
ocupada, bien por la "nueva" o bien por la "vieja" imagen, por oraen. Luego 
deje en bianco cualquier parte de la vieja" imagen de dicha fila, e imprima 
cualquier parte de la nueva en la misma. Esto provoca una animación razona- 
blemente suave en pantalla, pues va no tendremos unas celdillas compieta- 
mente en bianco donde no deberia haberlas. Una tècnica similar a ésta ha sido 
utilizada por Ashby Computers Graphics Limited con sus series de "Ultimate, 
Play_the__Game", de tanto exito, para el Spectrum. 
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Sin embargo, hay un obstàculo para la tècnica descrita arriba. No han sido 
eliminadas todas las interferencias y nos quedaremos con dos efectos principales. 
Primero, hay una forma reducida de temblor en la que se visualiza una fila en 
bianco mientras pasamos de borrar la imagen vieja a imprimir la nueva en esa 
fila. E1 resultado es que el caràcter se "congela" constantemente en varios sitios 
segun se mueve. Este efecto puede ser minimizado moviendo nuestro caràcter des- 
de su linea inferior hacia arriba en lugar de arriba abajo, corno se hace tra- 
dicionalmente. De està forma, nos aseguramos de que la rutina de impresión 
ùnicamente "colisiona" con la TV una vez durante cada cuadro, cuando los 
dos procesos se "cruzan", al trabajar en direcciones contrarias. Sin embargo, 
aun pienso que la interferencia que queda es lo suficientemente frecuente para 
resultar molesta. 

El segundo efecto de la interferencia entre la generación de la imagen y la 
rutina de impresión es que el caràcter se vuelve "estirado" o "encogido" verti¬ 
calmente, o desunido horizontalmente, en función de la dirección del movimiento. 

Imaginese que el caràcter està siendo movido (desde la linea inferior hacia 
arriba) en dirección Noreste, es decir, hacia arriba y a la derecha. Para poner un 
ejemplo, supondremos que està en un cuadro de pixels de 10 x 10 moviendo 
dos pixels a la vez a lo largo de cada eje. En el caso generai, cuando no hay 
interferencia, las imàgenes que se observan deberian mostrarse asi: 



Sin embargo, si la exploración de la TV pasa por encima del àrea en que 
estamos imprimiendo mientras que lo estamos haciendo, obtendremos una figura 
desunida, arrugada en el interior de una zona de 8 pixels delongitud. Si la 
"colisión" ocurre después que se ha movido la cuarta fila de arriba, por ejemplo, 
obtendremos las siguientes imàgenes: 
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Como puede ver, habremos perdido las filas 5 y 6 de nuestro caràcter mutilado 
durante un cuadro. 

La ùnica forma de estar totalmente seguro de obtener una animación total¬ 
mente sin temblores es asegurarse de que la exploración de la TV NUNCA 
pasa por encima del àrea en la que se està imprimiendo en ese momento. Hay 
varias maneras diferentes para hacer esto, y todas implican que hay que tener en 
cuenta las interrupciones que el Spectrum recibe cada 50-avo de segundo. Està 
es la misma frecuencia que la de su pantalla de TV y, por consiguiente, el 
haz de electrones està siempre en el mismo sino durante el "retroceso al principio" 
cuando se envia una serial de interrupción. 

Mientras podamos limitar nuestra acción de imprimir a los periodos en que 
la TV no està generando las 384 lineas de exploración del àrea de texto, po- 
dremos estar seguros de que no habrà temblores durante la animación, sin im¬ 
portar el lugar de la pantalla donde se està imprimiendo nuestra forma. Por 
tanto, los periodos "seguros" son mientras se estàn generando los bordes inferior 
y superior y durante los "retrocesos al principio". 

Desgraciadamente, a menos que todas nuestras rutinas de juego sean de 
"riempo constante", es decir, que siempre tarden lo mismo en ejecutarse, no ten- 
dremos forma de saber cuàndo se acaba de generar el àrea del texto, y por 
tanto, no podemos utilizar el momento del borde "inferior" para imprimir. Esto 
nos deja con el riempo entre una interrupción y el riempo que tarda la explo¬ 
ración de la TV en alcanzar el àrea del texto, que es alrededor de 14.200 T-estados 
o 4,06 ms. Por muy increible que parezca, es, de hecho, riempo sufìciente para 
imprimir 40 caracteres en la pantalla, utilizando un gestor de interrupciones de 
"proceso de impresión" especial, que explicaré en el capinolo siguiente. 
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9 

Un procesador de 

impresión controlado 
por interrupciones 
con un generador 
de horizonte de 

pantalla completa 

Ahora empezaré la explicación de la rutina del "procesador de impresión" 
controlado por interrupciones que mencioné al final del capitulo anterior. Esto, 
junto con una amplia serie de rutinas en las pàginas siguientes, le permitirà 
generar la anhelada animación por pixels sin temblor de cualquier sprìte (forma 
que consiste en un bloque de caracteres) de hasta 5x5 ó 7x4 celdas de àrea. 

Ademàs de su función principal corno procesador de impresión, el gestor de 
interrupciones también sera capaz de generar un horizonte de pantalla completa 
(incluido el borde). En el momento de escribir este libro, el ùnico juego que 
tema un horizonte de pantalla completa era el "Aquaplane" de Quicksilva, 
programado por John Elollis. A diferencia del horizonte estacionario de "Aqua¬ 
plane", el horizonte generado por mis rutinas sera movible entre uno y ocho 
pixels por cuadro dentro de una región comprendida entre la parte superior 
del àrea del texto y la parte màs inferior de la pantalla. 

Esto es sólo posible gracias a una tècnica especial que "engana" al ordena- 
dor para que produzca 3 ó 4 colores en los atributos que cubren el horizonte, 
de forma que tenemos aun algo que imprimir después que se hayan usado dos 
colores para el fondo. 

En este momento debo advertir que estas rutinas han sido disen adas para 
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funcionar en la parte superior de RAM en una màquina con 48K, basàn- 
dose en la suposición que si es un programador serio del lenguaje màquina, que 
trabaja con un ensamblador, probablemente tendrà 48K de RAM para disponer 
de espacio para cualquier cosa que no sea un pequeno archivo de texto una 
vez que ha cargado el ensamblador. 

Aun con el riesgo de repetirme, permitame explicarle que este programa 
màquina, colocado en los 16K màs inferiores de RAM, funcionarà alrededor de 
20 por 100 màs despacio cuando la TV esté generando el àrea del texto, ya que 
el ULA y el Z-80 estaràn intentando acceder a la vez a los mismos 8 chips de 
la memoria, y el ULA tiene prioridad. Como consecuencia, la parte superior del 
"procesador de impresión" del gestor de interrupciones no deberia necesitar 
modificación para funcionar en los 16K inferiores (sólo funciona cuando se 
està generando el borde superior), pero el generador de horizonte necesita una 
modificación profunda para compensar la pérdida de velocidad y los cambios 
generales en los tiempos. 

En este caso seria probablemente mejor que se conformara con un horizonte 
estacionario en un limite entre dos de las 24 lineas. De està forma, no necesita 
un trabajo especial sobre los atributos y se genera el horizonte del borde sen- 
cillamente con un bucle de retardo adecuado, y luego cambiando el color de 
encima del horizonte por el de debajo utilizando una instrucción OUT. 

El sistema del procesador de impresión funciona de la siguiente manera. Cada 
vez que alguna rutina de animación necesita imprimir algo en la pantalla, en 
vez de hacerlo directamente, elabora toda la preparación posible y luego depo¬ 
sita los datos resultantes para cada caràcter a imprimir en un àrea de memoria 
que suele denominarse "memoria tampón o buffer de impresión", luego, en cada 
interrupción, el procesador de impresión "vada" el buffer ., una entrada cada vez, 
y pone el caràcter correspondiente y sus atributos en el sitio correcto de los 
archivos de pantalla y de atributos respectivamente. 

Etiquetaremos el principio del buffer corno BUFFER. Cada entrada suya 
tiene una longitud de 6 octetos, y el formato de los datos es el siguiente: 

1) OCTETO DE ATRIBUTO 

2) DIRECCION DE ATRIBUTO (MENOR PESO) 

3) DIRECCION DE ATRIBUTO (MAYOR PESO) 

4) DIRECCION DEL ARCHIVO DE PANTALLA (MAYOR PESO) 

5) DIRECCION DE DATOS DE CARACTER (MENOR PESO) 

6) DIRECCION DE DATOS DE CARACTER (MAYOR PESO 

Note que no necesitamos almacenar el octeto menos significativo (de menor 
peso) de la dirección del archivo de pantalla, puesto que es idèntico al de la del 
archivo de atributos (octeto 2). 

Nunca he visto un caso en que haya sido util o necesario u tiliz ar FLASH 1 
cuando se està animando sprites por pixels , y, por tanto, he decidido sacrificar 
su bit de atributo, dejàndonos espacio para una bandera. El atributo se almacena 
desplazad o un bit a la izquierda en el buffer ., dejando el bit 0 corno bandera. 
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A menudo resulta util poder fundir dos sprites uno encima del otro, en el caso 
de que se superpongan, utilizando una operación OR, en vez de emplear la elimi- 
nación de la primera imagen por la segunda. He llamado a estos dos tipos de 
operación de impresión "OR-impresión" y "OVER-impresión" (o impresión y 
sobreimpresión) respectivamente. Cuando el bit 0 del octeto de atributo s està a 
uno, indica al procesador de impresión que funda este caràcter en particular 
con los contenidos actuales de la celda, con OR-impresión. 

La rutina puede modificarse fàcilmente si desea utilizarla para sus propios 
propósitos para imprimir empleando la operación XOR (O exclusivo) simple- 
mente cambiando todas las instrucciones OR precisas por XOR. Poner a uno 
la bandera significarla que se necesita "XOR-impresión". 

Para generar un hotizonte estable, es absolutamente necesario que cualquier 
rutina ejecutada entre la interrupción y la generation del hotizonte sea de riempo 
constante. Por tanto, he calibrado cuidadosamente la rutina del procesador de 
impresión de forma que, haya lo que haya en el buffer , tarde el mismo riempo 
en ejecutarse. 

He utilizado varios trucos para hacer que la rutina sea lo màs ràpida 
posible. Se vio que habla riempo para imprimir exactamente 40 caracteres, y, 
por tanto, nuestro buffer necesita ser de una longitud de 40 x 6 = 240 bits. 
Si nos aseguramos de que el octeto de menor peso de BUFFER es 10 Hex, 
podemos utilizar instrucciones de incremento de un solo registro corno: 

INC L 

en oposición a INC HL 

para pasar por el buffer. Esto ahorra 2 T-estados cada vez que lo utilizamos y 
tiene ademàs la ventaja de que podemos saber después del proceso de una 
entrada si se ha alcanzado el final del buffer utilizando simplemente: 

INC L 

y luego comprobando el estado de la bandera cero. 

Si no està utilizando las primeras lineas superiores del àrea del texto para la 
animación, o si no le importa el temblor en esa àrea, puede pensar en algun 
momento en que merezca la pena aumentar el nùmero de caracteres con que 
puede trabajar el procesador de impresión. Esto no plantea problema alguno 
hasta un limite de 42 caracteres (la respuesta a todo de los autostopistas), ya 
que el buffer estaria todavia contenido dentro de una "pàgina" (256 octetos con la 
misma parte de mayor peso de la direction) de la memoria. Sin embargo, màs 
allà de ese limite se necesitaràn algunas alteraciones para que la rutina pase 
correctamente por el limite la pàgina. 

Puesto que cada entrada del buffer tiene una longitud de 6 octetos, hay 6 ins¬ 
trucciones INC L en cada bucle de la rutina, corno verà cuando llegue al listado. 
La primera es después que se ha recogido el octeto de atributo, la segunda 
después de que se ha recogido la parte de menor peso de su direc tion v asi 



sucesivamente. Un càlculo matemàtico ràpido nos muestra que un buffer que ter¬ 
mine en #FCFF y de 43 entradas de longitud deberia empezar en #FBFE. 
Por tanto, para buffers de màs de 42 entradas hay que cambiar la segunda ins- 
trucción INC L a INC HL. 

De la misma manera, para un buffer de 86 entradas, la dirección de co- 
mienzo seria #FAFC, y, por tanto, para buffers de màs de 85 entradas cambia 
la cuarta instrucción INC L a INC HL. La longitud màxima del buffer por este 
mètodo es màs que suficiente: 128 entradas (768 octetos), en cuyo momento 
empezaria en un principio de pàgina #FA00. Como gufa para el tiempo de 
proceso extra para un buffer màs largo, cada entrada tarda aproximadamente 
igual que la impresión de 1.6 filas ó 3.2 lineas de exploración. 

Ahora bien, obviamente habrà ocasiones en que no utilicemos todas las 
40 entradas del buffer. Sin embargo, debemos asegurar que el procesador de 
impresión tarda lo mismo en ejecutar una entrada nula y probablemente la 
forma màs fàcil para hacer esto es hacer que la rutina THINK imprima un 
caràcter, sin que afecte realmente a la pantalla. 

Para indicar una entrada nula en el buffer, pondremos el octeto de atributo 
a cero. Al principio de cada bucle se ejecuta el fragmento siguiente, con HL 
apuntando el principio de una entrada del buffer : 

NXTCH LD A,(HL) 

AND A 
JR Z,FAKE 

En FAKE actualizaremos el punterò de buffer de HL y estableceremos los 
registros necesarios para OR-imprimir (sin efecto neto) en el àngulo inferior dere- 
cho de la pantalla. Habrà entonces una pausa corta para poder ecualizar per- 
fectamente el tiempo con el camino de la rutina de impresión normal, seguido 
de un salto a la sección principal del proceso de la OR-impresión. Esto no 
afectarà a los atributos, y el fragmento de FAKE serà el siguiente: 


FAKE LD 

A,5 

;AJUSTAR PUNTERÒ DE BUFFER 

ADD 

A, L 


LD 

L, A 


LD 

DE,#5 OFF 

;DIRECCIÓN DE A.P. DE (23,31) 

LD 

A,(DE) 

;ECUALIZADOR DE TIEMPO 

LD 

BC,#3D00 

;DIRECCIÓN DE DATOS DEL "ESPACIO 

EX 

DE , HL 

;EN ROM 

NOP 

;ESPERAR 

14 T-ESTADOS 

JP 

$ + 3 

; NOTA ; $=C0NTAD0R DE PROGRAMA 

JR 

OR 

; SALTA A LA RUTINA PRINCIPAL 


La parte màs importante de las instrucciones de la etiqueta OR es el si¬ 
guiente fragmento: 


LD 

A,(BC) 

;TOMAR DATO 

OR 

(HL) 

; 1 OR 1 CON FILA DE PANTALLA 

LD 

(HL) , A 

; INSERTAR EN ARCHIVO DE PANTALLA 

INC 

BC 

;SIGUIENTE BYTE DE DATOS 

INC 

H 

;SIGUIENTE FILA DE ARCHIVO DE PANTALLA 
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que se repite 6 veces, seguido por 


LD 

A,(BC) 

;IMPRIMIR ULTIMA 

FILA DE CARACTERES 

OR 

(HL) 



LD 

(HL),A 



EX 

DE, HL 



INC 

L 

;COMPROBAR FINAL 

DEL BUFFER 

JP 

NZ,NXTCH 




A primera vista, el listado para esto puede parecer torpe, pero debemos 
recordar que el riempo es de suma importancia, y que un bucle convencional 
repetido 7 veces tardarla mucho mas en ejecutarse. Por la misma razón, se ha 
empleado una instrucción JP absoluta (10 T-estados) en vez de un salto relativo 
(12 T-estados, donde el riempo extra se utiliza para anadir el desplazamiento 
al contador de programa). 

Mientras tiene todo esto todavla fresco en su memoria y antes de pasar al 
desarrollo de la parte de generación del horizonte del gestor de interrupciones, 
haré un listado de la primera parte de la rutina para su observación. Se nece- 
sitan unas palabras de explicación para las primeras llneas de la rutina. La 
primera prioridad en todo gestor de interrupciones debe ser conservar todos los 
registros que el gestor urilice. Habiendo hecho esto, debemos dar salida al color 
del borde para el "cielo" de encima del horizonte. Esto también proporciona una 
oportunidad para enviar un "click" al altavoz, sumando 10 Hex al argumento de 
la instrucción XOR de la etiqueta TOPBRD. Siempre almacenaremos el ùltimo 
valor al que hemos dado SALIDA por el puerto #FE en la variable BORD, 
conservando asi el estado del altavoz (bit 4). 

Las variables CHSTRE y BUFFPT almacenan el nùmero de entradas 
"reales" y la dirección de la siguiente entrada libre del buffer, respecrivamente. 
Estas variables seràn de mucha utilidad mas addante. Ahora pasemos a la pri¬ 
mera parte del gestor de interrupciones; por favor, lea hasta el final de este 
capitulo antes de intentar hacer uso de él, ya que, haciéndolo funcionar por si 
solo, seria la causa de un tremendo bloqueo del ordenador. También tome nota 
de que el signo $ de las instrucciones de salto significa "contador de programa", 
asi que: 

JR $ + 2 y 
JP $+3 

sencillamente significa "avance a la instrucción siguiente" y se emplean corno 
retardos de riempo. 


FF10 

90E0 10FF 

90E2 00 

90E3 00 


10 

BUFFER 

EQU 

#FF 1 0 

20 

BUFFPT 

DEFW 

BUFFER 

30 

CHSTRE 

DEFB 

0 

40 

50 

BORD 

DEFB 

0 
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60 






70 

GESTOR 

DE INTERRUPCIONES ***** 



80 

SALVAR 

REGISTROS 




90 




90E4 

F5 

100 INTERP 

PUSH 

AF 

90E5 

C5 

1 10 


PUSH 

BC 

90E6 

D5 

120 


PUSH 

DE 

90E7 

E5 

130 


PUSH 

HL 



140 






150 

PONER 

BORDE SUPERIOR 



160 




90E8 

21E390 

170 


LD 

HL,BORD 

90EB 

7E 

180 


LD 

A,(HL) 

90EC 

E6 1 0 

190 


AND 

16 

90EE 

EE05 

200 TOPBRD 

XOR 

5 

90F0 

D3FE 

2 1 0 


OUT 

(#FE),A 

90F2 

77 

220 


LD 

(HL),A 



230 






240 

COMENZAR A TRABAJAR MEDIANTE ENTRADAS DEL BUFFER 



250 




90F3 

2 11 OFF 

260 


LD 

HL,BUFFER 



270 






280 

UN ATRIBUTO CERO= 

"NINGUNA ENTRADA”, POR TANTO IMPRIMIR UN 



290 

CARACTER FALSO 




300 




90F6 

7E 

310 NXTCH 

LD 

A,(HL) 

90F7 

A7 

320 


AND 

A 

90F8 

286C 

330 


JR 

Z,FAKE 

90FA 

2C 

340 


INC 

L 



350 






360 

TOMAR 

DIRECCIONES 

DE ATRIBUTOS 



370 




90FB 

5E 

380 


LD 

E,(HL) 

90FC 

2C 

390 


INC 

L 

90FD 

56 

400 


LD 

D,(HL) 

90FE 

2C 

410 


INC 

L 

90FF 

1F 

420 


RRA 




430 






440 

ALMACENAR NUEVO ATRIBUTO 



450 




9100 

12 

460 


LD 

(DE),A 



470 






480 

FORMAR 

DIRECCIONES A.P. 



490 




9101 

56 

500 


LD 

D,(HL) 

9102 

2C 

510 


INC 

L 



52 0 ; TOMAR 

DIRECCIONES 

DE DATOS DE CARACTER 



530 




9103 

4e 

540 


LD 

C,(HL) 

9104 

2C 

550 


INC 

L 

9105 

46 

560 


LD 

B,(HL) 



570 






580 

DECIDIR SI MEZCLAR VIEJOS CARACTERES 



590 




9106 

302F 

600 


JR 

NC,NTOR 

9108 

EB 

610 


EX 

DE, HL 



620 






630 

IMPRIMIR NUEVO CARACTER UTILIZANDO "OR" 



640 




9109 

OA 

650 OR 

LD 

A,(BC) 

9 1 0A 

B6 

660 


OR 

(HL) 

9 1 OB 

77 

670 


LD 

(HL),A 

91 OC 

03 

680 


INC 

BC 

9 1 OD 

24 

690 


INC 

H 

9 1 OE 

OA 

700 


LD 

A,(BC) 

9 1 OF 

b6 

710 


OR 

(HL) 

9110 

77 

720 


LD 

(HL) , A 
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9110 

03 

730 


INC 

BC 

91 12 

24 

740 


INC 

H 

9113 

0A 

750 


LD 

A,(BC) 

9114 

b6 

760 


OR 

(HL) 

9115 

77 

770 


LD 

(HL),A 

9116 

03 

780 


INC 

BC 

9117 

24 

790 


INC 

H 

9118 

OA 

800 


LD 

A,(BC) 

9119 

B6 

810 


OR 

(HL) 

91 1A 

77 

820 


LD 

(HL),A 

91 1B 

03 

830 


INC 

BC 

91 1C 

24 

840 


INC 

H 

91 1D 

OA 

850 


LD 

A,(BC) 

9 1 1E 

B6 

860 


OR 

(HL) 

9 1 1F 

77 

870 


LD 

(HL),A 

9120 

03 

880 


INC 

BC 

9121 

24 

890 


INC 

H 

9122 

OA 

900 


LD 

A,(BC) 

9123 

B6 

910 


OR 

(HL) 

9124 

77 

920 


LD 

( HL ) , A 

9125 

03 

930 


INC 

BC 

9126 

24 

940 


INC 

H 

9127 

OA 

950 


LD 

A,(BC) 

9128 

B6 

960 


OR 

(HL) 

9129 

77 

970 


LD 

( HL ) , A 

9 12 A 

03 

980 


INC 

BC 

9 12B 

24 

990 


INC 

H 

9 12C 

OA 

1000 


LD 

A,(BC) 

9 12D 

B6 

1010 


OR 

(HL) 

9 12E 

77 

1020 


LD 

( HL ) , A 

9 12F 

EB 

1030 


EX 

DE, HL 



1040 

1050 

1060 

BUCLE 

HACIA 

ATRAS HASTA FINAL DEL BUFFER 

9130 

2C 

1070 


INC 

L 

9131 

C2F690 

1080 


JP 

NZ, NXTCH 



1090 

1 1 00 
1110 

SALTO 

HACIA 

ADELANTE 

9134 

C33491 

1120 

1 130 


JP 

ROWS 



1 140 

IMPRIMIR ENCIMA DEL CARACTER VIEJO 



1 150 




9137 

OA 

1 1 60NTOR 

LD 

A,(BC) 

9138 

12 

1 170 


LD 

( DE ) , A 

9139 

12 

1 180 


LD 

( DE ) , A 

9 13 A 

03 

1 190 


INC 

BC 

9 13B 

14 

1200 


INC 

D 

9 13C 

OA 

12 10 


LD 

A,(BC) 

9 13D 

12 

1220 


LD 

( DE ) , A 

9 13E 

12 

1230 


LD 

( DE ) , A 

9 13 F 

03 

1240 


INC 

BC 

9140 

14 

1250 


INC 

D 

9141 

OA 

1260 


LD 

A,(BC) 

9142 

12 

1270 


LD 

( DE ) , A 

9143 

12 

1280 


LD 

( DE ) , A 

9144 

03 

1290 


INC 

BC 

9145 

14 

1300 


INC 

D 

9146 

OA 

1310 


LD 

A,(BC) 

9147 

12 

1320 


LD 

( DE ) , A 

9148 

12 

1330 


LD 

( DE ) , A 

9149 

03 

1340 


INC 

BC 

9 1 4A 

14 

1350 


INC 

D 

9 1 4b 

OA 

1360 


LD 

A,(BC) 

9 1 4c 

12 

1370 


LD 

( DE ) , A 

9 1 4d 

12 

1380 


LD 

( DE ) , A 

9 1 4e 

03 

1390 


INC 

BC 
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914F 

14 

1400 

INC 

D 

9150 

0A 

1410 

LD 

A,(BC) 

9151 

12 

1420 

LD 

(DE ) , A 

9152 

12 

1430 

LD 

(DE ) ,A 

9153 

03 

1440 

INC 

BC 

9154 

14 

1450 

INC 

D 

9155 

0A 

1460 

LD 

A,(BC) 

9156 

12 

1470 

LD 

(DE ) , A 

9157 

12 

1480 

LD 

(DE ) , A 

9158 

03 

1490 

INC 

BC 

9159 

14 

1500 

INC 

D 

9 15 A 

0A 

1510 

LD 

A,(BC) 

915B 

12 

1520 

LD 

(DE ) , A 

9 15C 

C35F91 

1530 

1540 ; 

JP 

$ + 3 



1550 ;BUCLE 

HACIA ATRAS HASTA EL FINAL DEL BUFFER 

9 15F 

2C 

1560 

INC 

L 

9160 

C2F690 

1570 

1580 ; 

JP 

NZ,NXTCH 



15 9 0 ; SALTAR ENTONCES 

PARA GENERAR HORIZONTE 



1600 ; 



9163 

C33491 

1610 

JP 

ROWS 



1620 ; PARA 

EQUILIBRAR 

EL TIEMPO IMPRIMIR 



1630;UN ESPACIO CON " 

OR” EN LA ESQUINA 



1 640 ;INFERIOR DERECHA 



1650 ; 



9166 

3E05 

1660FAKE 

LD 

A,5 

9168 

85 

1670 

ADD 

A, L 

9169 

6f 

1680 

LD 

L, A 

9 1 6 A 

1 1FF50 

1690 

LD 

DE,#50FF 

9 1 6D 

1A 

1700 

LD 

A,(DE) 

9 1 6e 

01003D 

1710 

LD 

BC, # 3 D 0 0 

9171 

EB 

1720 

EX 

DE, HL 

9172 

00 

1730 

NOP 


9173 

C37691 

1740 

JP 

$ + 3 

9176 

1891 

1750 

JR 

OR 


Por cierto, la etiqueta ROWS estarà en la primera linea de la siguiente parte 
de la rutina. 

Ahora empezaré una discusión sobre los principios implicados en la gene¬ 
ration de un horizonte móvil de pantalla completa. Para simplificar, me referiré 
al àrea de la pantalla de encima del horizonte corno "cielo" y la de debajo corno 
"mar". Las rutinas produciràn un cielo "cian" (azul verdoso) y un mar azul al 
principio, pero estos colores se cambian muy fàcilmente e incluiré màs adelante 
una rutina para elio. 

Puede que se esté preguntando: "(fPara qué sirve un horizonte de pantalla 
completa?" o "^merece realmente la pena todo el esfuerzo y el càlculo de tiempos 
necesario?" 

La respuesta es que SI merece la pena el esfuerzo, porque, aunque extender 
el horizonte no permite imprimir en un àrea mayor de la pantalla, si aumenta 
el àrea de juego efectivo y es mucho màs agradable desde el punto de vista 
estètico. Supongamos, por ejemplo, que su juego implicaba el control de un avión 
que vuela por encima del mar, y que la posición actual del avión estuviera 
tan a la izquierda en el àrea del texto corno fuera posible, sin salirse fuera de 
la pantalla. Con un horizonte convencional de texto solamente, veriamos algo 
corno esto: 
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Como puede ver, nuestro avión parece estar sumamente "filerà de lugar", 
puesto que està arrinconado lo mas cerca posible del borde de la izquierda. 
Compàrelo con el aspecto "espacioso" de un horizonte de pantalla completa, 
donde el avión parece mas reai, incluso aunque haya sido impreso en el mismo 
sitio de la pantalla: 



El principio en el que se basan todos los "trucos" de programación que 
afectan al borde es muy sencillo. El ULA lee continuamente el puerto 254 y 
envia el color correspondiente al televisor, elaborando asi la imagen linea a linea. 
De este modo, para obtener una barrerà nitida entre dos colores de borde, 
simplemente esperaremos al momento exacto tras cada serial de interrupción 
antes de enviar el color del "mar" al puerto 254. 

Ahora bien, el Z-80 del Spectrum funciona a la velocidad de reloj de 
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3,5 MHz, es decir, hay 3.500.000 T-estados por segundo. Los cuadros de la te- 
levisión se generan a 50 Hz, y con 625 li'neas de exploración. Por tanto tenemos: 

3.500.000 

Tiempo necesario para una linea de exploración =-= 112 T-estados. 

625 x 50 


Sin olvidar que el Spectrum emplea 2 llneas de exploración para cada fila 
de la pantalla, tenemos que cada fila necesita 2 x 112 = 224 T-estados para 
generarse, y esto es cuanto tendremos que esperar para cada fila de la pantalla de 
encima del horizonte, antes de cambiar el color del borde. Un bucle de 
retardo adecuado, en el caso que el nùmero de filas se encuentre en el acumulador, 
seria el siguiente: 


SCAN1 

LN 


LD B,15 
DJNZ LN 
AND #FF 
INC HL 
DFf 1 A 

JP NZ,SCAN1 


; 7 T-ESTADOS 

; 14*13 + 8 = 1 90 

; 7 T-ESTADOS 
; 6 T-ESTADOS 
; 4 T-ESTADOS 

; 10 T-ESTADOS, BUCLE HACIA ATRAS 
; PARA LA SIGUIENTE FILA 


Encontrarà el fragmento de amba en la segunda parte del gestor de la in- 
terrupción. 

Bueno, ya nos hemos ocupado del control del borde. Ahora, <fqué hay de 
los atributos? Si el horizonte es una linea divisoria entre dos lineas de la pan¬ 
talla no tenemos problema. Simplemente utilizamos papel cian para la linea de 
encima del horizonte y papel azul para la de debajo. Sin embargo, si el nùmero 
de las filas de texto de encima del horizonte no puede dividirse por 8, nece- 
sitaremos producir tanto papel cian corno azul en una linea de atributos. No es 
sufìciente el empieo de sólo INK (tinta) cian y PAPER (papel) azul, ya que esto 
nos dejaria sin colores para imprimir nuestros sprites encima del horizonte. 

Para producir estos atributos de ?f dos papeles", necesitamos llenar la linea 
que contiene el horizonte con papel cian (y cualquier tinta de color que estemos 
usando en ese momento) y a continuación esperar que la exploración (barrido) 
de la TV alcance el nivel del horizonte, para luego volver a llenar apresura- 
damente la linea con atributos de papel azul. El ULA verifica los atributos cada 
vez que genera una fila en el àrea de texto; por tanto, el resultado deberla 
ser papel cian por encima del horizonte y papel azul por debajo, junto con 
nuestra selección de tinta y brillo para cada región. 

Desgraciadamente, debido a la gran velocidad con la que el haz de elec- 
trones barre desde la izquierda hasta la derecha de la pantalla, no tenemos 
tiempo sufìciente para reemplazar toda la fila de atributos antes de que el ULA 
vuelva a necesitarlos. Un càlculo ràpido muestra que el cambio de 32 atributos en 
224 T-estados necesitaria un promedio por atributo en 7 T-estados, que es tiempo 
sufìciente para hacer un LD (HL), A bàsico, sin incrementar ningun punterò. 

Hay dos factores màs a tener en consideración. Del lado positivo, tenemos, 
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de hecho, un poco mas de tiempo que los 224 T-estados. Supongamos, por 
ejempio, que hemos conseguido rellenar la mitad de una fila de TV, empezan- 
do por el limite izquierdo del àrea de texto; el tiempo que hemos tenido para 
hacerlo seria el que se hubiera tardado para 1,5 filas (336 T-estados), puesto 
que hubiéramos empezado en el momento en que el haz hubiera dejado el primer 
atributo, y terminado cuando nos alcantara a mitad del camino de recorrido 
de la pantalla. 

Del lado negativo, debemos recordar que el cambio de atributos requiere 
el acceso a los 16K inferiores de la RAM, y las interrupciones que resultan del 
ULA significaràn una ligera disminución generai de velocidad. 

Después de experimentar, encontré que la mejor solución que podriamos 
esperar es la de un "horizonte" de nivel continuo de 22 atributos. En la ma- 
yoria de los juegos, la acción tiende siempre hacia el centro del àrea de juego: 
por tanto, he colocado estos 22 octetos en el centro del àrea del texto, dejando 
pasos de una anchura de 5 columnas a cada lado. Tal cual, el horizonte de- 
formado apareceria del siguiente modo: 


Horizonte 
deseado ~ 



Ahora bien, està apariencia es, a no ser que desee una "colina" y un "valle" 
rectangulares en su pantalla, totalmente intolerable. La mejor solución al proble¬ 
ma es llenar las 5 columnas de la izquierda con una fila de tinta inmediatamente 
encima del horizonte; y las 5 columnas de la derecha con una fila de tinta justo 
debajo del horizonte. Utilizamos tinta cian a la izquierda y tinta azul a la de¬ 
recha para crear un horizonte continuo y raso. 

Al principio de cada interrupción, todos los atributos en cuestión seràn 
papel cian y tinta bianca. La secuencia con la que cambiaremos los atributos es 
la siguiente (después de un retardo exacto); 


1) Llenar los 5 atributos de màs a la derecha con papel cian, tinta azul. 

2) Llenar los 5 atributos de màs a la izquierda con papel azul, tinta cian. 
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3) Llenar los 22 atributos del medio con papel azul, tìnta bianca. 

4) Llenar los 5 atributos de mas a la izquierda con papel azul, tinta bianca. 

5) Llenar los 5 atributos de mas a la derecha con papel azul, tinta bianca. 

6) Ahora tenemos que esperar hasta que la TV haya terminado por com¬ 
pleto la generación de està linea de la pantalla. Parte de este riempo 
lo podemos emplear en preparar el buffer de impresión para la siguiente 
interrupción. 

7) Llenar los 32 atributos con papel cian, tinta bianca, dispuestos para la 
siguiente interrupción. 

En cierto punto critico durante la Etapa (3), el haz alcantara el lado de la 
derecha de la pantalla habiendo generado la fila cian inmediatamente por en- 
cima del horizonte. Cuando el haz està en "retroceso" hacia el lado izquierdo 
de la pantalla, tenemos que dejar de llenar atributos y dar salida al nuevo valor 
del borde. Almacenamos el nuevo valor en (BOTBRD + 1) y le sumamos 16 
si hay que enviar un click al aitavo^. Esto, combinado con el valor en (TOPBRD 
+1), nos permite una selección entre ningun sonido, o uno de 50 Hz o 100 Hz. 
En el ùltimo caso, vera que; cuando movamos el horizonte hacia arriba y hacia 
abajo en el siguiente capitalo, la forma de la ola del sonido cambia debido al 
riempo que transcurre entre el "click” superior y el "click” inferior. 

Volviendo a nuestro procedimiento para cambiar los atributos, el ùnico pro¬ 
blema adjunto al uso de la tècnica es que hasta 2 filas de cualquier sprìte impreso 
en el horizonte en las 5 columnas de la derecha o de la izquierda seràn cian 
y azules respectivamente. Esto apenas se nota y es un precio irrisorio por el 
efecto total de una visualización en toda la pantalla. 

Està tècnica funcionarà, corno minimo, 2 filas de texto por encima del hori- 
zonte, y el nùmero de estas filas està aJmacenado en (ROWS + 1). Las filas del 
texto cero no presentan problema, ya que toda la pantalla serà mar y sólo te¬ 
nemos que saltar derecho hacia la etiqueta NOWAIT cuando se cambia el color 
del borde. Sin embargo, en el caso muy poco probable de que necesite sólo 
una fila de texto por encima del horizonte, entonces tendrà que volver a la vieja 
tècnica de llenarlo con tinta y emplear tinta cian y papel azul. Esto es asi 
porque no hay suficiente riempo para manipular los atributos de la forma reque- 
rida por la nueva tècnica. En este caso, el gestor de interrupciones salta a la 
etiqueta WT1LN y espera que la TV alcance la fila uno antes de cambiar el 
borde. 

Repartidas por el listado encontrarà etiquetas desde HCOL1 hasta HCOL4; 
estas etiquetas se utilizaràn en los siguientes capitulos para cambiar los colores 
del cielo y del mar. Se emplearà HRZN3 para las rutinas de movimiento del 
horizonte. Contiene la dirección del 28-avo atributo del horizonte y se le pondrà 
para apuntar a #001B (en la ROM) cuando no se necesite trabajo alguno de 
atributos. Este es el caso en la rutina tal y corno està, ya que he puesto 
(ROWS + 1) a 96,o a mitad de camino de la pantalla. 

Después que se ha generado el horizonte, el gestor de interrupciones tiene 
dos tareas màs por hacer. Primero, tiene que limpiarel buffer de impresión borrando 
todas las entradas que se acaban de imprimir, e insertando octetos de 
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atributo cero para indicar 40 entradas nulas. Inicializa BUFFPT con la primera 
entrada libre, que ahora està en BUFFER y pone el nùmero de entradas, 
CHSTRE a cero. Finalmente recupera todos los registros almacenados al prin¬ 
cipio de la interrupción y termina. 

Aqui, pues, està la segunda parte del gestor de interrupciones, seguido por 
una rutina de inicialización: 


95FF 

3E60 

10 

ROWS 

LD 

A, 96 



20 

; 





30 

; A CONTIENE NO 

DE FILAS SOBRE HORIZONTE 



40 

; SI A = 0 

NO ESPERAR A CAMBIAR BORDE 



50 

; 



9601 

D601 

60 


SUB 

1 

9603 

DAC796 

70 


JP 

C,NOWAIT 



80 

? 





90 

; SI A=1 

ESPERAR UNA LINEA DE EXPLORACION 



100 

? 



9606 

CABD96 

1 10 


JP 

Z.WT1LN 

9609 

3D 

120 


DEC 

A 



130 

; 





140 

; SI A = 2 

SALTAR 

ESTE RETARDO 

960A 

CA1896 

150 


JP 

Z,G04lT 



160 

• 





170 

;ESTE BUCLE TARDA 224 T-ESTADOS 0 UNA 



180 

; LINEA 

DE EXPLORACION POR PASO 

960D 

060F 

190 

SCAN1 

LD 

B, 15 

960F 

10FE 

200 

LN 

DJNZ 

LN 

9611 

E6FF 

2 1 0 


AND 

#FF 

9613 

23 

220 


INC 

HL 

9614 

3D 

230 


DEC 

A 

9615 

C20D96 

240 


JP 

NZ,SCAN1 



250 

; 





260 

;EQUILIBRADOR 

DE TIEMPO 



270 

; 



9618 

060A 

280 

G04IT 

LD 

B, 10 

96 1A 

1 0FE 

290 

SELFS 

DJNZ 

SELFS 

96 1C 

E6FF 

300 


AND 

#FF 



310 

; 



96 1E 

211B00 

320 

HRZN3 

LD 

HL , # 1B 



330 

;HL=DIRECCION 

DEL 26-AVO ATRIBUTO DE LA LINEA 



340 

; 



962 1 

7D 

350 


LD 

A, L 

9622 

E6E0 

360 


AND 

#E0 

9624 

47 

370 


LD 

B, A 



380 






390 

; BUSCAR 

COLOR 

DEL BORDE INFERIOR 



400 




9625 

1 12596 

410 


LD 

DE,BORD 

9628 

1A 

420 


LD 

A,(DE) 

9629 

E610 

430 


AND 

16 

962B 

EE0 1 

440 

BOTBRD 

XOR 

1 

962D 

12 

450 


LD 

(DE),A 

962E 

1E29 

460 

HC0L1 

LD 

E, 41 

9630 

0E0D 

470 

HC0L2 

LD 

C, 13 



480 

; 





490 

;LLENAR 

5 ATRI. A DER. CON PAPEL CIAN, TINTA AZUL 

9632 

73 

500 


LD 

( HL ) , E 

9633 

2C 

510 


INC 

L 

9634 

73 

520 


LD 

( HL ) , E 

9635 

2C 

530 


INC 

L 

9636 

73 

540 


LD 

(HL),E 

9637 

2C 

550 


INC 

L 

9638 

73 

560 


LD 

(HL),E 
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9639 

2C 

570 

INC 

L 

963A 

73 

580 

LD 

(HL),E 

963B 

68 

590 

LD 

L, B 

963C 

1 EOF 

600 HC0L3 

LD 

E, 15 



610 ; 





620 ;LLENAR 

5 ATRI 

. A IZQ. CON PAPEL AZUL, TINTA CIAN 



630 ; 



963E 

71 

640 

LD 

(HL),C 

963F 

2C 

650 

INC 

L 

9640 

71 

660 

LD 

(HL),C 

9641 

2C 

670 

INC 

L 

9642 

71 

680 

LD 

(HL),C 

9643 

2C 

690 

INC 

L 

9644 

71 

700 

LD 

(HL),C 

9645 

2C 

710 

INC 

L 

9646 

71 

720 

LD 

(HL),C 

9647 

2C 

730 

INC 

L 



740 ; 





750 ;LLENAR 

LOS 22 

ATRI. DEL MEDIO CON PAPEL AZUL, TINTA BLANCA 



760 ; 



9648 

73 

770 

LD 

(HL),E 

9649 

2C 

780 

INC 

L 

964A 

73 

790 

LD 

(HL),E 

964b 

2C 

800 

INC 

L 

964C 

73 

810 

LD 

(HL),E 

964d 

2C 

820 

INC 

L 

964e 

73 

830 

LD 

(HL),E 

964f 

2C 

840 

INC 

L 

9650 

73 

850 

LD 

(HL),E 

9651 

2C 

860 

INC 

L 

9652 

73 

870 

LD 

(HL),E 

9653 

2C 

880 

INC 

L 

9654 

73 

890 

LD 

(HL),E 

9655 

2C 

900 

INC 

L 

9656 

73 

910 

LD 

(HL),E 

9657 

2C 

920 

INC 

L 

9658 

73 

930 

LD 

(HL),E 

9659 

2C 

940 

INC 

L 

965A 

73 

950 

LD 

(HL),E 

965B 

2C 

960 

INC 

L 

965C 

73 

970 

LD 

(HL),E 

965D 

2C 

980 

INC 

L 

965E 

73 

990 

LD 

(HL),E 

965F 

2C 

1000 

INC 

L 

9660 

73 

1010 

LD 

(HL),E 

9661 

2C 

1020 

INC 

L 



1030 ;MIENTRAS TANTO LA BUSQUEDA DE TV HA ALCANZADO EL BORDE 



1040 ;DER. DE ESTE 

MODO, AHOEA CAMBIA EL COLOR DEL BORDE 



1050 ; 



9662 

D3FE 

1060 

OUT 

(#FE) ,A 

9664 

73 

1070 

LD 

(HL),E 

9665 

2C 

1080 

INC 

L 

9666 

73 

1090 

LD 

(HL),E 

9667 

2C 

1 1 00 

INC 

L 

9668 

73 

1110 

LD 

(HL),E 

9669 

2C 

1120 

INC 

L 

966A 

73 

1 130 

LD 

(HL),E 

966B 

2C 

1 140 

INC 

L 

966c 

73 

1 150 

LD 

(HL),E 

966D 

2C 

1 160 

INC 

L 

966e 

73 

1 170 

LD 

(HL),E 

966F 

2C 

1 180 

INC 

L 

9670 

73 

1 190 

LD 

(HL),E 

9671 

2C 

1200 

INC 

L 

9672 

73 

12 10 

LD 

(HL),E 

9673 

2C 

1220 

INC 

L 

9674 

73 

1230 

LD 

(HL),E 
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9675 7D 

9676 68 


A, L 
L, B 


1240 LD 
1250 LD 
1260 ; 

1270 ;AHOKA LLENA LOS 5 ATRI. DE IZQ. CON PAPEL AZUL, TINTA BLANCA 




1280 




9677 

73 

1290 


LD 

(HL ) , E 

9678 

2C 

1300 


INC 

L 

9679 

73 

1310 


LD 

(HL),E 

9 6 7 A 

2C 

1320 


INC 

L 

967B 

73 

1330 


LD 

(HL ) , E 

967C 

2C 

1340 


INC 

L 

967D 

73 

1350 


LD 

(HL),E 

967E 

2C 

1360 


INC 

L 

967F 

73 

1370 


LD 

(HL ) , E 

9680 

6F 

1380 


LD 

L, A 

9681 

2C 

1390 


INC 

L 



1400 

FINALMENTE LLENAR LOS 5 ATRI. DE DER. CON PAPEL AZUL 



1410 

TINTA 

BLANCA 




1420 




9682 

73 

1430 


LD 

(HL ) , E 

9683 

2C 

1440 


INC 

L 

9684 

73 

1450 


LD 

(HL),E 

9685 

2C 

1460 


INC 

L 

9686 

73 

1470 


LD 

(HL ) , E 

9687 

2C 

1480 


INC 

L 

9688 

73 

1490 


LD 

(HL),E 

9689 

2C 

1500 


INC 

L 

968A 

73 

1510 


LD 

(HL ) , E 

968b 

68 

1520 


LD 

L, B 



1530 






1540 

ALMACENAR INICIO LINEA DE ATRI. 

968C 

E5 

1550 : 

[NIT3 

PUSH 

HL 



1560 

ASEGURAR QUE EL BUFFER SE LLENA CON CARACTERES FALSOS 



1570 






1580 




968D 

2 1 8D9 6 

1590 


LD 

HL,CHSTRE 

9690 

7E 

1600 


LD 

A,(HL) 

9691 

A7 

1610 


AND 

A 

9692 

2 8 OF 

1620 


JR 

Z, END 

9694 

1 10600 

1630 : 

[NIT2 

LD 

DE, 6 



1640 ; 






1650 ; 

NOTAR 

QUE D = 0 


9697 

72 

1660 


LD 

(HL) ,D 

9698 

219896 

1670 


LD 

HL,BUFFER 

969B 

22 9B9 6 

1680 


LD 

(BUFFPT),HL 

969E 

47 

1690 


LD 

B, A 

969F 

72 

1700 I 

tfXTFL 

LD 

(HL),D 

96A0 

19 

1710 


ADD 

HL, DE 

96A1 

1 OFC 

1720 


DJNZ 

NXTFL 



1730 ; 






1740 ; 

RECUPERAR DIRECCIONES DE ATRI. 



1750 ; 




96A3 

E 1 

1760 I 

:nd 

POP 

HL 



1770 ; 






1780 ; 

H = 0 SIGNIFICA 

NINGUN ATRI. A LLENAR 



1790 ; 




96A4 

7C 

1800 


LD 

A, H 

96A5 

A7 

1810 


AND 

A 

96A6 

CAB6 9 6 

1820 


JP 

Z,NOPLG 



1830 






1840 

ESPERAR HASTA 

QUE LA TV HA TERMINADO CON 



1850 

ESTÀ LINEA DE 

ATRIBUTOS 



1860 

NOTA 

: SI FLUCTUA ENTONCES 



1870 

INCREMENTAR ESTE RETARDO 



1880 




96A9 

064D 

1890 


LD 

B, #4D 
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96AB 

10FE 

1900 

SELF 4 

DJNZ 

SELF 4 



1910 







1920 


LLENAR 

LA LINEA CON PAPEL CIAN, TINTA BLANCA 



1930 





96AD 

0E1F 

1940 



LD 

C, 3 1 

96AF 

54 

1950 



LD 

D,H 

96BO 

5D 

I960 



LD 

E, L 

96b 1 

1C 

1970 



INC 

E 

96B2 

362F 

1980 

HC0L4 

LD 

(HL),47 

96b4 

EDBO 

1990 

2000 



LDIR 




2010 


RECUPERAR REGISTROS 



2020 





96b6 

El 

2030 

NOPLG 

POP 

HL 

96b7 

DI 

2040 



POP 

DE 

96b8 

CI 

2050 



POP 

BC 

96B9 

FI 

2060 

2070 



POP 

AF 



2080 


FINAL 

DE INTERRUPCIÓN 



2090 





96BA 

FB 

2100 



El 


96bb 

ED4D 

2 110 

2 120 

2 130 



RETI 




2140 


RETARDO PARA HORIZONTE EN FILAI 



2150 





96bd 

060F 

2160 

WT1LN 

LD 

B, 15 

96bf 

1 OFE 

2170 

SELF 1 1 

DJNZ 

SELF 11 

96C1 

EóFF 

2180 



AND 

#FF 

96C3 

23 

2190 



INC 

HL 

96c4 

3D 

2200 



DEC 

A 

96C5 

2B 

2210 



DEC 

HL 

96c6 

3C 

2220 

2230 



INC 

A 



2240 

2250 


ENTRA 

AQUI 

PARA HORIZONTE FILA 0 



2260 


BUSCAR 

NUEVO COLOR DE BORDE 



2270 





96C7 

2A2B96 

2280 

NOWAIT 

LD 

HL,(BOTBRD) 

96CA 

1 12596 

2290 



LD 

DE,BORD 

96CD 

1A 

2300 



LD 

A,(DE) 

96CE 

E6 1 0 

2310 



AND 

16 

96DO 

AC 

2320 

2330 



XOR 

H 



2340 


ALMACENARLO 

Y DARLE SALIDA 



2350 





96D1 

12 

2360 



LD 

(DE) ,A 

96D2 

D3FE 

2370 

2380 



OUT 

(#FE ) , A 



2390 

;PONER 

BANDERA PARA NINGUN ATRI. A LLENAR 

96D4 

2600 

2400 

2410 



LD 

H, 0 



2420 

2430 


SALTO 

HACIA 

ATRAS A LA RUTINA PRINCIPAL 

96d6 

C38C96 

2440 



JP 

INIT3 


Por supuesto, estaremos empleando el modo 2 de interrupción, y, corno 
vera, he elegido utilizar una tabla de vectores de 257 octetos apuntando a una 
instrucción de salto al gestor de interrupciones en #FDFD. Està tècnica fue 
descrita con mas detalle en el capitulo 7. Poniendo la tabla en #FE00 y el 
buffer en #FF10 (recuerde que el octeto de menor peso debe ser #10), he 
empleado hàbilmente el ùltimo 1/2K de la RAM, desperdiciando solamente 
15 octetos. La siguiente rutina de inicialización establece la tabla de vectores, 
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selecciona IM2 y luego salta al gestor de intermpciones para asegurar que el 
buffer sea borrado. He llamado la rutina INT1 y su contraria para volver a se- 
leccionar IMI (si quisiera volver a BASIC) DISINT. 

Las 3 ultimas lineas del listado establecen el importantisimo salto en #FDFD. 




10 

INICIALIZAR PROCESADOR DE INTERRUPCION 




20 

CONSERVA REGISTROS COMO ESTABAN CUANDO SALIMOS 

MEDIANTE 



30 

EL GESTOR DE INTERRUPCIONES 




40 




8A2B 

F3 

50 INT1 DI 



8A2C 

F5 

60 

PUSH 

AF 


8A2D 

C5 

70 

PUSH 

BC 


8A2E 

D5 

80 

PUSH 

DE 


8A2F 

E5 

90 

PUSH 

HL 


8A3 0 

3EFE 

100 

LD 

A, #FE 


8A32 

ED47 

1 10 

LD 

I, A 




120 






130 

; ESTABLECER TABLA DE VECTORES PARA IM 2 LLENAND0 

i 257 BYTES 



140 

; DESDE #FE00 CON #FD 




150 




8A34 

2100FE 

160 

LD 

HL,#FE00 


8A37 

45 

170 

LD 

B, L 


8A38 

3D 

180 

DEC 

A 


8A39 

77 

190 TBLP LD 

(HL),A 


8A3A 

23 

200 

INC 

HL 


8A3B 

10FC 

2 1 0 

DJNZ 

TBLP 


8A3D 

77 

220 

LD 

(HL),A 




230 ;SELECCIONA IM 

2 Y PREPARAR PARA . . . 


8A3E 

3E28 

240 

LD 

A, 40 


8A40 

ED5E 

250 

IM 

2 


8A42 

2600 

260 

LD 

H, 0 


8A44 

E5 

270 

PUSH 

HL 


8A45 

21458A 

280 

LD 

HL,CHSTRE 




290 






300 

; UN SALTO AL GESTOR DE INTERRUPCIONES PARA BORRAR 



310 

; EL BUFFER DE 

IMPRESIÓN 


8A48 

C3488A 

320 

JP 

INIT2 




330 






340 






350 

UTILICE ESTÀ 

RUTINA PARA VOLVER A SELECCIONAR 

IM 1 

8A4B 

3E3E 

3 60 DISINT LD 

A , # 3 E 


8a4d 

ED5 6 

370 

IM 

1 


8A4f 

ED47 

380 

LD 

I » A 


8A51 

C9 

390 

RET 





400 






410 

; POSICIONAR LAS INSTRUCCIONES DE SALTO 




420 

; DEL GESTOR DE 

INTERRUPCIONES 


FDFD 


430 LABEL ORG 

#FDFD 


FDFD 

C3FDFD 

440 

JP 

INTERP 


8A52 


450 

ORG 

LABEL 



En el próximo capitulo proporcionaré una serie de rutinas para tratar todos 
los aspectos de la generación del horizonte y movimiento. A continuación en- 
contrarà un conjunto de potentes rutinas de animación de sprites para hacer 
uso total del procesador de impresión (todavia sin estrenar). 

Si no desea emplear el generador de horizonte de pantalla completa en el 
gestor de intermpciones, puede desactivarlo con la siguiente secuencia: 

LD A,(COLOR DE BOKDE) 

LD (TOPBRD+ 1 ) , A 
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LD (BOTBRD+1),A 

XOR A 

LD (ROWS+ 1 ) , A 

Esto establece el horizonte a su nivel màximo con mar y cielo del mismo 
color, y hace que la rutina evite cualquier trabajo con los atributos. jPuede 

entonces ignorar el siguiente capitulo con tranquilidad! 
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10 

Moviendo el horizonte 

de pantalla 
completa por "pixels" 


Antes de proporcionarles las rutinas de control de horizonte, se necesitan 
unas palabras de precaución sobre el uso del procesador de interrupciones. 

Aunque el Z-80 siempre recibe una serial de interrupción exactamente en la 
misma etapa del cuadro de TV, nunca reacciona a està serial hasta que ha ter- 
minado el proceso de la instrucción actual. Esto nos puede llevar a una variación 
de hasta 23 T-estados (corno en el caso de una de las instrucciones mas largas, 
EX(SP), IX) en el riempo en que se procesa la interrupción. 

En términos humanos, esto no parece muy largo, pero es suficiente para 
que la TV progrese aproximadamente una dècima parte del camino a lo largo 
de una fila, con lo cual afecta nuestro horizonte ?f artifìcial ?f , desplazando mo¬ 
mentàneamente la parte centrai, hacia la derecha o la izquierda. De hecho, el 
generador del horizonte puede tolerar un desplazamiento de riempo de alrede- 
dor ±4 T-estados sin ningun efecto malo; por tanto, siempre que volvemos a una 
instrucción HALT (que hace que el procesador ejecute continuamente NOPs 
de 4 T-estados cada uno) antes de que ocurra una interrupción, entonces no 
habrà problema alguno. 

Sin embargo, si desea ejecutar alguna otra rutina mientras espera una in¬ 
terrupción, probablemente encontrarà que aparece un temblor. En este caso la 
solución es ensanchar nuestras "filas de tinta”, que, corno recordarà, tienen 5 co- 
lumnas de ancho, a ambos lados del horizonte centrai, hasta que cubran por 
completo el àrea del temblor. No necesitarà hacerlas màs anchas de 7 columnas 
a cada lado, dejando 18 columnas sin tocar en el centro de la pantalla. Na- 
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turalmente, necesitarà entonces hacer unas ligeras modifìcaciones en todas las 
rutinas de horizonte, para que calculen las direcciones correctas de los nuevos 
atributos y las filas de tìnta, y para que trabajen correctamente con ellos. Lo 
mismo ocurre para el generador de horizonte en el gestor de interrupción. 

Ahora empezaré el desarrollo de la primera rutìna de horizonte, HRZST1. 
Su función sera borrar las ultimas filas de tìnta insertas en la pantalla, y cal- 
cular las direcciones de las nuevas, después que hayamos movido el horizonte. 
Almacenaremos la dirección de las 5 filas de tìnta de la izquierda en HRZN1, 
y la de las 5 de la derecha en HRZN2. Cuando no se necesite ninguna fila 
de tinta (si el horizonte no està en el texto o si està entre dos lineas), pon- 
dremos la parte de mayor peso de HRZN1 y HRZN2 a cero, corno banderas. 

La dirección de la linea de atributos actual siempre estarà almacenada en 
HRZN4 y también inserta en el propio gestor de interrupciones en (HRZN3 + 1). 
La parte de mayor peso del segundo se pondrà a cero cuando no se necesite 
ninguna manipulación de atributos, con lo cual el generador de horizonte apun- 
tarà al gestor de interrupciones de la ROM. Està es la forma màs fàcil para 
asegurarse de que el generador siga obteniendo bien los tiempos para el cambio 
de borde. 

Por tanto, necesitaremos definir las variables al principio del programa: 



ORG 

(SU DIRECCIÓN) 

HRZN1 

DEFW 

0 

HRZN2 

DEFW 

0 

HRZN4 

DEFW 

0 


Y he aquf el listado de HRZST1, seguido de unas notas sobre su empieo. 




10 

BORRAR 

FILAS DE 

TINTA VIEJAS Y ESTABLECER 



20 

NUEVOS 

VALORES 

PARA LOCALIZACION DE FILAS DE TINTA 



30 

Y ATRIBUTOS 




40 

ENTRADA : C = N0. 

DE FILAS DE TEXTO SOBRE EL HORIZONTE 



50 

SE CONSERVAN : DE, C 



60 






70 




8DA2 

2AA28D 

80 HHZST1 

LD 

HL,(HRZN1) 



90 






100 

BORRAR 

LAS 5 FILAS DE TINTA A LA IZD. 



1 10 




8DA4 

AF 

120 


XOR 

A 

8DA6 

77 

130 


LD 

(HL),A 

8DA7 

2C 

140 


INC 

L 

8DA8 

77 

150 


LD 

(HL ) ,A 

8DA9 

2C 

160 


INC 

L 

8DAA 

77 

170 


LD 

(HL ) ,A 

8DAB 

2C 

180 


INC 

L 

8DAC 

77 

190 


LD 

(HL ) ,A 

8DAD 

2C 

200 


INC 

L 

8DAE 

77 

2 1 0 


LD 

(HL) ,A 



220 






230 

AHORA 

LAS CINCO 

DE LA DERECHA 



240 




8DAF 

2AAF8D 

250 


LD 

HL,(HRZN2) 

8DB2 

77 

260 


LD 

(HL),A 

8DB3 

2C 

270 


INC 

L 


94 







8db4 

77 

280 

LD 

(HL),A 

8DB5 

2C 

290 

INC 

L 

8db6 

77 

300 

LD 

(HL),A 

8DB7 

2C 

310 

INC 

L 

8DB8 

77 

320 

LD 

(HL),A 

8DB9 

2C 

330 

INC 

L 

8DBA 

77 

340 

LD 

(HL),A 

8DBB 

79 

350 

HRZST2 LD 

A, C 

8DBC 

32BD8D 

360 

LD 

(ROWS+1),A 



370 

; ESTÀ TODAVIA EL 

HORIZONTE EN EL AREA DE TEXTO? 



380 

; 


8DBF 

FECI 

390 

CP 

#C1 



400 

; 




410 

; SI NO, ENTONCES 

NO SE NECESITA NINGUNA FILA DE TINTA 

8DC1 

3031 

420 

JR 

NC,NOWRK 



430 

; 




440 

;LOCALIZAR LINEA 

DE ATRIBUTOS 



450 

; 


8DC3 

07 

460 

RLCA 


8DC4 

07 

470 

RLCA 


8DC5 

E603 

480 

AND 

3 

8DC7 

F658 

490 

OR 

#58 

8DC9 

67 

500 

LD 

H, A 

8DCA 

79 

510 

LD 

A, C 

8DCB 

87 

520 

ADD 

A, A 

8DCC 

87 

530 

ADD 

A, A 

8DCD 

E6E0 

540 

AND 

#E0 

8dcf 

6f 

550 

LD 

L, A 



560 

;ALMACENARLA 


8DD0 

22D08D 

570 

LD 

(HRZN4),HL 

8DD3 

79 

580 

LD 

A, C 



590 

; 




600 

; SI EL HORIZONTE 

ESTÀ ENTRE 2 LINEAS ENTONCES NO SE 



610 

;NECESITA NINGUNA 

FILA DE TINTA 



620 

; 


8DD4 

E607 

630 

AND 

7 

8DD6 

2 8 1C 

640 

JR 

Z, NOWRK 



650 

; 




660 

;LOCALIZAR EL 28- 

■AVO ATRI. 



670 

; 


8DD8 

7D 

680 

LD 

A, L 

8DD9 

F6 1B 

690 

OR 

# 1B 

8DDB 

45 

700 

LD 

B, L 

8DDC 

6f 

710 

LD 

L, A 



720 

; 




730 

; INSERTARLO EN EL 

, GESTOR DE INTERRUPCIONES 

8DDD 

22DE8D 

740 

LD 

(HRZN3+1),HL 



750 

;LOCALIZAR EL 28- 

■ESIMO OCTETO DE FILA DEL A.P. DEBAJO HORIZON 



TE 




760 

; 


8DE0 

79 

770 

LD 

A, C 

8DE1 

1F 

780 

RRA 


8DE2 

37 

790 

SCF 


8DE3 

1F 

800 

RRA 


8DE4 

A7 

810 

AND 

A 

8DE5 

1F 

820 

RRA 


8DE6 

A9 

830 

XOR 

C 

8DE7 

E6f8 

840 

AND 

#F8 

8DE9 

A9 

850 

XOR 

C 

8DEA 

67 

860 

LD 

H, A 

8DEB 

22 AF8D 

870 

LD 

(HRZN2),HL 



880 

;AHORA EL PRIMER 

BYTE DE LA FILA SOBRE EL HORIZONTE 



890 

; 


8DEE 

25 

900 

DEC 

H 

8DEF 

68 

910 

LD 

L, B 

8DF0 

22A28D 

920 

LD 

(HRZN1),HL 

8DF3 

C9 

930 

RET 
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8DF4 

AF 

940 

NOWRK 

XOR 

A 



950 

; CUANDO 

NO SE 

NECESITA NINGUNA 



960 

; LAS VARIABLES; 

EN LA ROM 

8DF5 

32A38D 

970 


LD 

(HRZN1+1),A 

8DF8 

32B08D 

980 


LD 

(HRZN2+1),A 

8dfb 

32DF8D 

990 


LD 

(HRZN3+2),A 

8DFE 

C9 

1000 


RET 



FILA DE TINTA, SENALAR 


HRZST1 sera llamada por la siguiente rutina HRZMV1, siempre que mueva 
el horizonte (ST viene de SeT, poner; MV de MoVe, mover). También puede 
llamarla directamente para mover el horizonte a cualquier nivel en la pantalla de 
una vez desde cualquier nivel anterior. Basta... 

LD C,(NO. DE FILAS SOBRE EL HORIZONTE) 

CALL HRZST1 


...llene a continuación las filas de tinta y los atributos corno desee. Si està po- 
niendo el nivel del horizonte por primera vez debe saltarse la sección que borra 
las viejas filas de tinta entrando en HRZST2. 

Para desarrollar una rutina que mueva el horizonte, HRZMV1, primero 
debemos definir dos variables. HRZSPD contendrà el nùmero de filas que se 
mueve el horizonte cada vez que se llama la rutina. Este nùmero variarà entre 
1 y 8. La direction del horizonte se almacenarà en CNTRL, que puede ponerse 
(por ejemplo) mediante una rutina de exploración de teclado. El bit 2 de CNTRL 
se pondrà a uno (valor 4) para un movimiento hacia abajo y el bit 3 (valor 8) 
para un movimiento hacia arriba. Asf que empezamos con las lfneas: 

ORG (SU DIRECCION) 

HRZSFD DEFB 0 

CNTRL DEFB 0 


Debido al problema de un horizonte en la fila uno, descrito en el capftulo 
anterior, he restringido el movimiento a niveles por debajo de ésta. En mi 
TV hay unas 236 filas desde la parte superior del àrea del texto hasta la 
parte inferior de la pantalla, asf es que he puesto el limite màs bajo en 
(ROWS + 1) = 236. Probablemente querrà modificar esto para su propia TV, 
y en todo caso debe recordar que, cuanto màs bajo sea el horizonte, màs riempo 
tardarà en generarlo y, por tanto, menos riempo tendrà para hacer cualquier 
otta cosa antes de la siguiente interrupción (corno animación de sprìtes, por 
ejemplo). 

La función principal de HRZMV1 es cuidar de los atributos segùn se mueve 
el horizonte. Si, por ejemplo, acabamos de mover el horizonte hasta la fila 0 
de la linea actual, o dentro de la linea de encima de ella, entonces necesita- 
remos cambiar una linea de atributos de cielo a mar. De la misma forma, si 
acabamos de moverlo hacia abajo hasta una nueva linea, debemos llenar sus 
atributos con cielo, dispuesto para la siguiente interrupción. HRZMV1 serà lla- 
mado por la rutina de horizonte principal, E1RZNMK. Cuando la rutina HRZMV1 
concluye su trabajo con los atributos, hace un salto a HRZST1 para esta- 
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blecer los nuevos valores para HRZN1...HRZN4 y limpia todas las fìlas de tinta 
anteriores. 

Puede que observe la existencia de dos etiquetas sin usar en el listado, 
HCOL5 y HCOL6. Estas se utilizaràn en una rutina posterior que establecerà 
nuevos colores para el cielo y el mar. He aqui el listado: 


io 

20 

30 

40 

50 


RUTINA PARA CAMBIAR NIVEL DE HORIZONTE 
POR CANTIDAD (HRZSPD) EN DIRECCION 
(CNTRL) NOTA 4=ABAJ0, 8=ARRIBA 


903B 

3A3B90 

60 

HRZMV1 LD 

A,(HRZSPD) 


903E 

47 

70 

LD 

B, A 


903F 

3A3F90 

80 

LD 

A,(CNTRL) 


9042 

1 10000 

90 

LD 

DE, 0 




100 

? 





1 10 

; TEST PARA SUBIR 





120 




9045 

CB5F 

130 

BIT 

3, A 


9047 

C27690 

140 

JP 

NZ,UP2 




150 

? 





160 

; TEST PARA BAJAR 





170 

? 



904A 

CB57 

180 

BIT 

2, A 


904C 

C8 

190 

RET 

Z 




200 

? 





2 1 0 

; INCREMENTAR LAS 

FILAS SOBRE EL 

HORIZONTE POR HRZSPD 



220 

? 



904D 

3A4E90 

230 

LD 

A,(ROW+1) 


9050 

80 

240 

ADD 

A, B 




250 

? 





260 

;COMPROBACION DE 

SEGURIDAD PARA 

NIVEL 1 MINIMO DE HORIZONTE 



270 

? 



9051 

FEEC 

280 

CP 

236 


9053 

DO 

290 

RET 

NC 




300 

; 





310 

; SI FILAS>192 SALTAR A HRZST1 




320 

; 



9054 

FECI 

330 

CP 

#C1 


9056 

4f 

340 

LD 

C, A 


9057 

D25790 

350 

JP 

NC,HRZST1 




360 

; 





370 

; ESTAMOS EN LA FILA CERO DE UNA 

LINEA? 



380 

; 



905A 

E607 

390 

AND 

7 


905C 

2007 

400 

JR 

NZ,NROWZ1 




410 

? 





420 

; SI ES ASI, ESTÀ 

HRZSPD EN 8 LINEAS POR MOVER? 



430 




905E 

CB58 

440 

BIT 

3,B 




450 






460 

•SI NO, SALTAR A 

HRZST1 




470 




9060 

CA5790 

480 

JP 

Z,HRZST1 


9063 

1808 

490 

JR 

R0WZ1 


9065 

B8 

500 

NR0WZ1 CP 

B 




510 

; 





520 

; ESTAMOS AHORA MOVIENDONOS DESDE 

LA FILA CERO DE UNA 



530 

; LINEA? 



9066 

2805 

540 

JR 

Z,ROWZ1 



550 


560 


SI NO, SI ESTAMOS EN LA MISMA LINEA, SALTAR 


570 

580 
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9068 

D25790 

590 

JP NC,HRZST1 

906B 

1E20 

600 

LD E,#20 



610 




620 

•RETARDO PARA ASEGURAR QUE LA TV HA ACABADO LA NUEVA LINEA 



630 

? 

906D 

064D 

640 

K0WZ1 LD B, 77 

906F 

10FE 

650 

SELF42 DJNZ SELF42 



660 




670 

;LLENAR LA NUEVA LINEA CON PAPEL CIAN, TINTA BLANCA 



680 

? 

9071 

062F 

690 

HC0L5 LD B, 47 

9073 

C39A90 

700 

JP UPINIT 



710 

; 

9076 

3A7790 

720 

UP2 LD A,(ROWS+1) 



730 




740 

•DECREMENTAR FILAS ENCIMA HORIZONTE POR HRZSPD 



750 

? 

9079 

90 

760 

SUB B 



770 

? 



780 

;VOLVER SI ES NEGATIVO 



790 

? 

907A 

D8 

800 

RET C 



810 




820 

•VOLVER SI ES MENOR QUE 2 



830 


907B 

FE02 

840 

CP 2 

907D 

D8 

850 

RET C 



860 




870 

; SI FILAS>184 SALTAR A HRZST1 



880 


907E 

FEB9 

890 

CP #B9 

9080 

4f 

900 

LD C, A 

9081 

D25790 

910 

JP NC,HRZST1 

9084 

ED44 

920 

NEG 

9086 

E607 

930 

AND 7 

9088 

1 10000 

940 

LD DE,0 



950 




960 

•SALTAR SI NO ESTAMOS EN FILA 0 DE UNA LINEA 



970 


908b 

2007 

980 

JR NZ,NR0WZ2 



990 

? 



1000 

; SI NO LLENAR LA LINEA ACTUAL 



1010 

; CON PAPEL AZUL, TINTA BLANCA 



1020 


908D 

CB58 

1030 

BIT 3,B 

908F 

2807 

1040 

JR Z,HCOL6 

9091 

1 1E0FF 

1050 

LD DE,#FFE0 

9094 

B8 

1060 

NR0WZ2 CP B 



1070 




1080 

; SI AUN ESTAMOS EN LA MISMA LINEA SALTAR 



1090 


9095 

D25790 

1 1 00 

JP NC,HRZST1 



1110 

? 



1120 

; SI NO LLENAR LA ANTERIOR CON PAPEL AZUL 



1 130 

; TINTA BLANCA 

9098 

060F 

1 140 

HCOL6 LD B,15 

909A 

2A9A90 

1 150 

UPINIT LD HL,(HRZN4) 

909D 

19 

1 160 

ADD HL,DE 



1 170 




1 180 

•RELLENADOR DE PROPOSITO GENERAL 



1 190 


909E 

54 

1200 

LD D, H 

909F 

5D 

12 10 

LD E, L 

90A0 

1C 

1220 

INC E 

90A1 

70 

1230 

LD (HL),B 

90A2 

79 

1240 

LD A, C 

90A3 

01 1F00 

1250 

LD BC,31 
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90A6 

EDBO 

1260 

LDIR 

90A8 

4F 

1270 

LD C, A 



1280 




1290 

•FINALMENTE SALTAR A HRZST1 

90A9 

C35790 

1300 




1310 

JP HRZST1 


Ahora tenemos todo el material necesario para poner y mover el nivel del 
horizonte. HRZMV1 se ocupa de todo el trabajo de los atributos segun se 
mueve el horizonte, mientras que HRZST1 asegura que sabemos dónde estàn 
dichos atributos, borra las fìlas de tinta anteriores y calcula las direcciones de 
las nuevas. Solamente queda insertar esas fìlas de tinta en el archivo de pantalla 
antes de cada interrupción (puede que hayan sido sobreimpresas por sprites desde 
la ùltima). La rutina maestra HRZNMK (MK de MaKe, hacer) harà esto des- 
pués de haber llamado a HRZMV1, que hace todos los cambios necesarios en 
los atributos y las variables. De està forma, HRZNMK es la ùnica rurina que 
tenemos que llamar directamente después de cada interrupción, corno se vera en 
la rutina de demostración que sigue a su listado. 


895F 

CD5F89 

10 

20 

30 

40 

50 

60 

RUTINA PRINCIPAL DE HORIZONTE 

SOLO LLAMARLA JUSTO DESPUES DE CADA INTERRUPCIÓN 
HABIENDO PUESTO LAS VARIABLES CNTRL Y HRZSPD 

iRZNMK CALL HRZMV1 

8962 

2A6289 

70 

80 

90 

100 

VOLVER SI NO SE 

LD 

NECESITA NINGUNA FILA DE TINTA 

HL,(HRZN1) 

8965 

24 

1 10 

INC 


H 

8966 

25 

120 

DEC 


H 

8967 

C8 

130 

RET 


Z 

8968 

3EFF 

140 

150 

160 

170 

INSERTAR FILAS 

LD 

DE 

TINTA PARA EL HORIZONTE 

A, #FF 

896A 

77 

180 

190 

200 

2 1 0 

PRIMERÒ LAS 5 DE 

LD 

LA IZQ. 

(HL),A 

896b 

2C 

220 

INC 


L 

896C 

77 

230 

LD 


(HL),A 

896d 

2C 

240 

INC 


L 

896E 

77 

250 

LD 


(HL),A 

896f 

2C 

260 

INC 


L 

8970 

77 

270 

LD 


(HL),A 

8971 

2C 

280 

INC 


L 

8972 

77 

290 

LD 


(HL),A 

8973 

2A7389 

300 

310 

320 

330 

AHORA LAS 5 DE 

LD 

LA 

DER . 

HL,(HRZN2) 

8976 

77 

340 

LD 


(HL),A 

8977 

2C 

350 

INC 


L 

8978 

77 

360 

LD 


(HL),A 

8979 

2C 

370 

INC 


L 

897A 

77 

380 

LD 


(HL),A 

897B 

2C 

390 

INC 


L 

897C 

77 

400 

LD 


(HL),A 

897D 

2C 

410 

INC 


L 

897E 

77 

420 

LD 


(HL),A 

897F 

C9 

430 

RET 
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Para ilustrar su recién encontrado poder sobre el Spectrum, he aqui una 
rutina de demostración que emplea INT1, HRZST2, HRZNMK, DISINT e 
indirectamente HRZST1, HRZMV1 y el gestor de interrupciones. 

La rutina proporciona control directo sobre el horizonte. Pulsando cualquiera 
de las teclas de 1 a 5 lo mueve hacia arriba, mientras que las teclas de CAPS 
SHIFT a Y lo mueven hacia abajo. Las teclas 8, 9 y 0 se utilizan para con- 
trolar la velocidad del horizonte. Piense en ellas corno un numero de tres bits 
que se ponen a uno cuando se pulsa su teda, luego anada uno para obtener 
HRZSPD. Por tanto, pulsando las teclas 8 y 0 (101 binario = 5 decimai) da 
una velocidad de 6 fìlas por cuadro de TV. Finalmente, aqui està la rutina, 
DEMO: 


8AC5 

CDC58A 

10 

DEMO CALL INT1 



20 

? 



30 

;PONER HORIZONTE INICIAL 



40 

? 

8AC8 

0E54 

50 

LD C, 84 

8ACA 

CDCA8A 

60 

CALL HRZST2 



70 

? 



80 

;ESPERAH INTERRUPCION 



90 

? 

8ACD 

76 

100 

DMLP HALT 



1 10 

? 



120 

;C CONTENDRA LA DIRECCION 



130 


8ACE 

0E00 

140 

LD C,0 



150 




160 

;COMPROBAR MEDIA-FILA INFERIOR-IZQUIERDA 



170 


8AD0 

3EFE 

180 

LD A,#FE 

8AD2 

DBFE 

190 

IN A,(#FE) 

8AD4 

2F 

200 

CPL 

8AD5 

E6 1F 

2 1 0 

AND #1F 

8AD7 

2802 

220 

JR Z,ND1 



230 




240 

; SI PULSADA, PONER BIT 2 PARA "ABAJO" 



250 


8AD9 

CBD1 

260 

SET 2,C 



270 




280 

;COMPROBAR MEDIA-FILA SUPERIOR-IZQ. 



290 


8ADB 

3EF7 

300 

ND1 LD A,#F7 

8ADD 

DBFE 

310 

IN A,(#FE) 

8ADF 

2F 

320 

CPL 

8AE0 

E6 1F 

330 

AND #1F 

8AE2 

2802 

340 

JR Z.NU1 



350 

? 



360 

; SI PULSADA, PONER BIT 3 PARA ”ARRIBA” 



370 


8AE4 

CBD9 

380 

SET 3,C 



390 




400 

•ALMACENAR DIRECCION 



410 


8AE6 

79 

420 

NU1 LD A,C 

8AE7 

32E78A 

430 

LD ( CNTRL),A 



440 




450 

•COMPROBAR MEDIA-FILA SUPERIOR-DER. 



460 


8AEA 

3EEF 

470 

LD A,#EF 

8AEC 

DBFE 

480 

IN A,(#FE) 



490 

; 


100 















500 ; UTILIZAR LOS 3 BUS DE TECLA DER. PARA VELOCIDAD HORIZONTE 



510 ; 



8 AEE 

2F 

520 

CPL 


8AEF 

E607 

530 

AND 

7 

8AF 1 

3C 

540 

INC 

A 

8AF2 

32F28A 

550 

LD 

(HRZSPD),A 



560 





570 

;LLAMAR A LA RUTINA MAESTRA DE HORIZONTE 



580 



8AF5 

CDF58A 

590 

CALL 

HRZNMK 



600 





610 

COMPROBAR TECLA 

BREAK 



620 



8AF8 

3E7F 

630 

LD 

A, # 7 F 

8AFA 

DBFE 

640 

IN 

A,(#FE) 

8AFC 

1F 

650 

RRA 


8AFD 

3 8 CE 

660 

JR 

C,DMLP 



670 





680 

; SI PULSADA, VOLVER AL BASIC 



690 



8AFF 

CDFF8A 

700 

CALL 

DISINT 

8B02 

C9 

710 

RET 



Como rutina final de està "serie de horizonte", he preparado HRZCOL, 
que le permite establecer las demàs rutinas para cualquier combinación de colo- 
res de cielo y de mar. También establece los colores de tìnta para encima y de- 
bajo del horizonte (si està moviendo formas sobre el horizonte, probablemente 
necesitarà que ambos sean el mismo). Tiene posibilidad de provocar que el gestor 
de interrupciones genere un sonido de fondo de "motor", bien a 50 Hz o a 100 Hz, 
sumando 16 a uno o ambos valores de papel respectivamente. Se debe preparar 
los registros de la siguiente forma: 

H = valor de papel de mar (+ 16 para sonido) 

L = valor de papel de cielo ( + 16 para sonido de 100 Hz) 

B = valor de la tinta de mar 
C = valor de la tinta de cielo 


Por ejempio, para producir un suelo verde y un cielo bianco, con tinta 
negra en ambos, 


LD HL,#407 

LD BC,# 0 

CALL HRZCOL 


La rutina inserta los atributos correctos en las etiquetas de HCOL1 a 
HCOL6 que se encuentran en el gestor de interrupciones (HCOL1 a HCOL4) 
y en HRZMV1 (HCOL5 y HCOL6). 


io 

20 

30 

40 

50 

60 


RUTINA PARA PONER COLORES DE MAR Y CIELO 
ENTRADA : H=PAPEL MAR,L=PAPEL CIELO 
B=TINTA MAR,C=TINTA CIELO 
SUMAR 16 A H 0 L 0 AMBOS PARA SONIDO 
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8A88 

7C 

70 HRZCOL 

LD 

A, H 






8A89 

328A8A 

80 


LD 

(BOTBRD+1),A 








90 











100 

DEJAR 

EL PAPEL 

MAR EN H 








1 10 









8A8C 

E6 07 

120 


AND 

7 






8A8E 

67 

130 


LD 

H, A 






8A8f 

7D 

140 


LD 

A, L 






8A90 

32918A 

150 


LD 

(TOPBRD+1 ) ,A 








160 











170 

DEJAR 

EL PAPEL 

CIELO EN L 








180 









8A93 

E607 

190 


AND 

7 






8A95 

6f 

200 


LD 

L, A 








2 1 0 











220 

HC0L1 

NECESITA 

PAPEL PAPEL-CIELO 

Y 

TINTA 

PAPEL-MAR 



230 









8A96 

07 

240 


RLCA 







8A97 

07 

250 


RLCA 







8A98 

07 

260 


RLCA 







8A99 

5F 

270 


LD 

E, A 






8A9A 

b4 

280 


OR 

H 






8A9B 

329C8A 

290 


LD 

(HCOL1 + 1 ) , A 








300 











310 

HC0L2 

NECESITA 

PAPEL PAPEL-MAR 

Y 

TINTA 

PAPEL-CIELO 



320 









8A9E 

7C 

330 


LD 

A, H 






8A9F 

07 

340 


RLCA 







8AA0 

07 

350 


RLCA 







8AA1 

07 

360 


RLCA 







8AA2 

57 

370 


LD 

D, A 






8AA3 

B5 

380 


OR 

L 






8AA4 

32A58A 

390 


LD 

(HC0L2+1 ) ,A 








400 ;HC0L3 

NECESITA 

PAPEL PAPEL-MAR 

Y 

TINTA 

TINTA-MAR 



410 









8AA7 

7A 

420 


LD 

A, D 






8AA8 

B0 

430 


OR 

B 






8AA9 

32AA8A 

440 


LD 

(HCOL3+1),A 








450 











460 

. . .LO 

MISMO PARA HCOL6 








470 









8AAC 

32 AD8A 

480 


LD 

(HCOL6 + 1 ) ,A 








490 











500 

HC0L4 

NECESITA 

PAPEL PAPEL-CIELO 

Y 

TINTA 

TINTA-CIELO 



510 









8AAF 

7B 

520 


LD 

A,E 






8AB0 

B 1 

530 


OR 

C 






8AB1 

32B28A 

540 


LD 

(HCOL4+1),A 








550 











560 

. . .LO 

MISMO PARA HCOL5 








570 









8AB4 

32B58A 

580 


LD 

(HCOL5 + 1 ) , A 






8AB7 

C9 

590 


RET 
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Una serie de rutinas 
para complementar 

el procesador 
de impresión 

En este capitolo desarrollaré una serie completa de rutinas de impresión 
para sacar el màximo partido del procesador de impresión controlado por 
interrupciones que se vio en el capitolo 9. En el capitolo siguiente se veràn las 
rutinas de animación de sprites. 

Para empezar, seria util tener una rutina sencilla con la que se pueda enviar 
cualquier caràcter al buffer. En vez de utilizar la dirección de la celdilla actual 
en el archivo de pantalla, corno hace el BASIC del Spectrum con la variable 
del sistema DF-CC, es mas fàcil seguir de cerca la posición de impresión utili¬ 
zando el archivo de atributos. De està forma defìnimos una variable ATCC para 
que contenga la dirección de atributo de la celdilla actual y empezamos con las 
lineas 

ORG (SU DIRECCIÓN) 

ATCC DEFW #5800 

con lo cual inicializamos nuestro marcador al àngulo superior izquierdo del 
àrea de texto. La base de la tabla que contiene los datos de caràcter serà 
almacenada en CHARS y también podemos empezar por apuntar al juego de 
caracteres del BASIC del Spectrum, empleando la linea: 

CHARS DEFW #3C00 
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Recuerde que CHSTRE contiene el nùmero de entradas utilizadas en el 
buffer de impresión, y BUFFPT apunta a la siguiente entrada libre. Ambas 
variables se modifìcan en concordancia. El resto de la rutina es autoexplicativa: 
por tanto, pasaré directamente a presentarle HIPRINT. 




10 

ENVIAR UN CARATER AL BUFFER 



20 

ENTRADA : A=C0DIG0 DEL CARACTER 



30 

SALIDA 

: BC=DIRECCION DE LOS DATOS DEL CARACTER 



40 

DE=ATCC (VER TEXTO) 



50 

HL =SIGUIENTE ENTRADA DE BUFFER 



60 

A=0CTET0 DE MAYOR PESO DE LA DIRECCION DE A.P 



70 





80 

MULTIPLICAR CODIGO POR 8 



90 



8CC8 

6f 

100 HIPRNT 

LD L, A 

8CC9 

2600 

1 10 


LD H, 0 

8CCB 

29 

120 


ADD HL, HL 

8CCC 

29 

130 


ADD HL,HL 

8CCD 

29 

140 


ADD HL,HL 



150 





160 

SUMAR 

DIRECCION BASE DE LA TABLA 



170 



8CCE 

ED5BCE8C 

180 


LD DE,(CHARS) 

8CD2 

19 

190 


ADD HL,DE 



200 





2 1 0 

HACER 

BC=DIRECCION DE DATOS 



220 



8CD3 

44 

230 


LD B,H 

8CD4 

4d 

240 


LD C, L 

8CD5 

21D58C 

250 PLACE 

LD HL,CHSTRE 

8CD8 

7E 

260 PWAIT 

LD A,(HL) 



270 





280 

SI EL 

BUFFER ESTÀ LLENO ESPERAR 



290 

UNA INTERRUPCION 



300 



8CD9 

FE28 

310 


CP 40 

8CDB 

DAE18C 

320 


JP C,GO 

8CDE 

FB 

330 


El 

8CDF 

18F7 

340 


JR PWAIT 

8CE1 

F3 

350 GO 

DI 



360 





370 

ACTUALIZAR CONTADOR DE CARACTERES DEL BUFFER 



380 



8CE2 

34 

390 


INC (HL) 

8CE3 

ED5BE38C 

400 


LD DE,(ATCC) 



410 





420 

DE=DIRECCION DE ATRIBUTO 



430 



8CE7 

2AE78C 

440 


LD HL,(ATT) 



450 





460 

H=MASCARA, L=ATRI. 



470 

CONSTRUIR NUEVO ATRIBUTO 



480 



8CEA 

1A 

490 


LD A,(DE) 

8CEB 

AD 

500 


XOR L 

8CEC 

A4 

510 


AND H 

8CED 

AD 

520 


XOR L 

8CEE 

2 AEE8C 

530 


LD HL,(BUFFPT) 



540 





550 

HL=PRIMERA LOCALIZACION LIBRE DEL BUFFER 



560 

ROTAR 

Y ALMACENAR ATRI. 



570 



8CF1 

07 

580 


RLCA 
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8CF2 

77 

590 

LD 

(HL),A 



600 

; 




610 

; ALMACENAR DIRECCION DE AT 



620 

: 


8CF3 

2C 

630 

INC 

L 

8cf4 

73 

640 

LD 

(HL),E 

8CF5 

23 

650 

INC 

HL 

8cf6 

72 

660 

LD 

(HL),D 

8CF7 

2C 

670 

INC 

L 



680 

; 




690 

; BUSCAR Y ALMACENAR OCTETO 

TD 



700 

r . 


8CF8 

7A 

710 

LD 

A, D 

8CF9 

E603 

720 

AND 

3 

8CFB 

07 

730 

RLCA 


8CFC 

07 

740 

RLCA 


8CFD 

07 

750 

RLCA 


8CFE 

F640 

760 

OR 

64 

8D00 

77 

770 

LD 

(HL),A 

8D0 1 

23 

780 

INC 

HL 



790 

; 




800 

;ALMACENAR DIRECCION DE DA 



810 

; 


8D02 

71 

820 

LD 

(HL),C 

8D03 

2C 

830 

INC 

L 

8D04 

70 

840 

LD 

( HL ) , B 

8D05 

23 

850 

INC 

HL 



860 

; 




870 

;PONER BUFFPT 

APUNTANDO A 




ER 




880 

: 


8D06 

22EE8C 

890 

LD 

(BUFFPT 

8D09 

C9 

900 

RET 



,HL 


Habrà ocasiones durante algunos programas en que necesitarà que el gestor 
de interrupciones imprima continuamente un caràcter en particular o una serie 
de caracteres en el mismo sitio de la pantalla. Por ejempio, puede desear super- 
poner ?f puntos de mira de làser” en el centro de la pantalla, y éstos necesitan 
una OR-impresión continua en cada interrupción, ya que la nave espacial enemiga 
(o lo que sea) se mueve detràs de ellos. Como hay tan poco riempo entre dos 
interrupciones (especialmente si està empleando el generador de horizonte en un 
nivel bajo), serà muchisimo mejor no tener que cargar todos los datos para los 
puntos de mira en el buffer de impresión después de cada intermpción. 

Para poder hacer esto, he diseriado un sistema de rutinas que emplean una 
subsección del buffer de impresión, que se llamarà ”RO-buffer” para indicar 
”Read only buffer” (Buffer de sólo lectura). A la inversa del caso de las entradas 
normales en el buffer de impresión, las del RO-buffer no seràn borradas por el 
gestor de interrupciones cuando han sido impresas. Por tanto, sólo tenemos que 
asegurarnos, después de cada interrupción, de que se hayan insertado los atri- 
butos correctos para cada celdilla en cuestión en el RO-buffer. Si la màscara del 
atributo es el octeto cero, ni siquiera necesitaremos hacer esto, ya que los carac¬ 
teres siempre se imprimiràn con los mismos atributos, sin tener en cuenta los 
atributos anteriores para esa celdilla. 

Las entradas consecutivas normalmente ”creced” hacia arriba desde el prin- 
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cipio del buffer de impresión; por tanto, para mantenerlas separadas, haremos 
que el RO-buffer crezca hacia abajo desde el final del buffer de impresión. Las 
dos regiones no deben superponerse nunca. Almacenaremos el nùmero de entra- 
das del RO-buffer en la variable ROLNTH y el principio (dirección mas baja) 
del RO-buffer en la variable ROBFPT. De està forma los inicializamos (para 
un RO-buffer de una longitud de cero) con las lineas: 


ORG (SU DIRECCIÓN) 
ROLNTH DEFB 0 
ROBFPT DEFW 0 


Antes de proseguir, necesitamos una rutina para establecer un RO-buffer. 
Lo que hard la siguiente rutina es ALTERAR la longitud del RO-buffer con el 
valor de C, que puede ser negativo o positivo. Habiendo ajustado ROLNTH, 
la rutina llena todas las entradas entre el final de las entradas "normales" (por 
ejemplo, BUFFPT) y el principio del RO-buffer, con caracteres "nulos" para 
evitar que se imprima alguna tonteria. Por està razón la rutina, llamada ALTRBF, 
siempre se deberia llamar con las interrupciones desactivadas. ALTRBF enton- 
ces pone ROBFPT a la nueva dirección de principio del RO-buffer y lo devuelve 
en HL, que se utilizarà posteriormente. 




10 

RUTINA PARA ALTERAR LA LONGITUD DEL RO-BUFFER 



20 

ENTRADA : C=ALTERACION DE LONGITUD 



30 

SE CONSERVA C 




40 

SALIDA : HL=C0MIENZ0 DEL RO-BUFFER,B=0,A=N0. DE ENTRADAS 



50 

NO UTILIZADAS 

EN EL BUFFER DE IMPRESIÓN 



60 





70 



89F7 

21F789 

80 ALTRBF LD 

HL,ROLNTH 



90 





100 

MODIFICAR ROLNTH POR C 



1 10 



89FA 

7E 

120 

LD 

A, ( HL ) 

89FB 

81 

130 

ADD 

A, C 

89FC 

77 

140 

LD 

(HL),A 



150 





160 

BUSCAR NO. DE 

ENTRADAS NO UTILIZADAS EN EL BUFFER DE 



170 

IMPRESIÓN (>= 

0) 



180 



89FD 

3AFD89 

190 

LD 

A, (CHSTRE) 

8A00 

47 

200 

LD 

B, A 

8A01 

3E28 

2 1 0 

LD 

A,40 

8A03 

90 

220 

SUB 

B 

8A04 

96 

230 

SUB 

(HL) 

8A05 

47 

240 

LD 

B, A 



250 





260 

LLENARLAS CON 

ENTRADAS "NULAS" 



270 



8A06 

2A068A 

280 

LD 

HL,(BUFFPT) 



290 





300 

PERO SALTAR SI NO HAY NINGUNA ENTRADA QUE LLENAR 



310 



8A09 

2807 

320 

JR 

Z,HOPFL 
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8A0B 

1 10600 

330 

LD 

DE, 6 



340 

? 




350 

; NOTA : D = 0 




360 



8A0E 

72 

370 

BLNK LD 

(HL),D 

8A0F 

19 

380 

ADD 

HL, DE 

8A10 

10FC 

390 

DJNZ 

BLNK 



400 





410 

•PONER ROBFPT 

APUNTANDO AL COMIENZO DEL RO-BUFFER 



420 

? 


8A12 

22128A 

430 

HOPFL LD 

(ROBFPT),HL 

8A15 

C9 

440 

RET 



Obviamente, cualquier mtina escrita para dar salida a los caracteres al 
buffer de impresión se adapta fàcilmente para utilizar el RO-buffer, que es de 
hecho una subsección del anterior. Podria modificar HIPRINT o cualquiera de 
sus propias rutinas de impresión. Proporcionaré una rutina para hacer un vol- 
cado de formas pre-definidas, tales corno nuestro punto de mira en el RO-buffer, 
pero primero veremos la rutina sencilla que se necesita para refrescar los octetos 
de atributo de cada entrada. 

La mtina se llama SRVR1 (porque es una rutina de servicio, SeRVice 
Routine). Toma la dirección de atributos de una entrada, encuentra el atributo 
en el archivo, a continuación lo enmascara con nuestra variable estàndar 
MASK, que, corno siempre, està colocada directamente después de ATT, los 
atributos para nuestros caracteres. El octeto de atributos completo se rota en- 
tonces un bit a la izquierda (para contrarrestar la rotación hacia la derecha del 
gestor de interrupciones) y se inserta en el RO-buffer. Observe que si deseamos 
seleccionar OR-impresión ponemos a uno el bit 7 de ATT (el bit 7 de MASK 
siempre tiene que estar a cero), que luego se rotarà para convertirlo en bit 0 
antes de su inserción en el buffer. Esto también se aplica a HIPRNT. 

Aqui, pues, està el listado de SRVR1. Observe el empieo de la bandera 
cero (Z) para detectar el final del buffer, cuando el octeto de menor peso de su 
dirección se convierte en cero. 




10 

RUTINA 

DE SERVICIO PARA ACTUALIZAR ATRIBUTOS 



20 

EN EL 

RO-BUFFER 




30 

SALIDA 

: B=MASCARA,C=ATRI. A=0 



40 

HL=0CTET0 DESPUES DEL BUFFER DE IMPRESIÓN 



50 




89B1 

2 AB 189 

60 SRVR1 

LD 

HL,(ROBFPT) 



70 






80 

HACE B 

=MASCARA, 

C=ATRIBUTO 



90 




89B4 

ED4BB48 9 

100 


LD 

BC,(ATT) 



1 10 






120 

TOMAR 

DIRECCIÓN 

DE ATRI. 



130 




89B8 

2C 

140 NXSRV1 

INC 

L 

89B9 

5E 

150 


LD 

E,(HL) 

89BA 

2C 

160 


INC 

L 

89BB 

56 

170 


LD 

D,(HL) 

89BC 

2D 

180 


DEC 

L 

89BD 

2D 

190 


DEC 

L 



200 
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210 ;TOMAR ATRIBUTO ACTUAL 
220 ; 


89BE 

1A 

230 

LD 

A, (DE) 



240 





250 

CREAR UNO NUEVO 




260 



89BF 

A9 

270 

XOR 

C 

89C0 

A0 

280 

AND 

B 

89C1 

A9 

290 

XOR 

C 



300 





310 

ROTAR A LA IZQ. 

,CONSERVANDO LA BANDERA 0 



320 



89C2 

07 

330 

RLCA 




340 





350 

ALMACENAR NUEVO 

ATRI. EN EL BUFFER 



360 



89C3 

77 

370 

LD 

(HL),A 



380 





390 

DESPLAZARSE A LA 

SIGUIENTE ENTRADA 



400 



89C4 

7D 

410 

LD 

A, L 

89C5 

C606 

420 

ADD 

A,6 

89C7 

6f 

430 

LD 

L, A 

89C8 

2 OEE 

440 

JR 

NZ,NXSRV1 



450 ; 





460 ;HASTA QUE EL R0- 

BUFFER HA SIDO C0MPR0BAD0 

89CA 

C9 

470 

RET 



Se debe llamar a SRVR1 en cualquier caso en que sea posible que los 
atributos de las celdillas empleadas por nuestras entradas del RO-buffer hayan 
cambiado, por ej empio, al mover un sprite en ellas o al mover un horizonte 
una linea hacia abajo. La rutina también le da la oportunidad de variar el color 
de los caracteres ?f permanentes ?f de su pantalla, modificando ATT. Puesto que 
maneja el RO-buffer entero, cada entrada emplearà el mismo valor ATT. Si no 
desea esto, entonces la modificación mas fàcil es cambiar el fragmento: 


por: 


XOR 

AND 

XOR 

LD 

RRC 

XOR 

AND 

XOR 


C 

B 

C 

C, (HL ) 

C 

C 

B 

C 


con lo cual se emplea efectivamente el valor originai de ATT, con el cual la entra¬ 
da fue insertada (por un HIPRNT modificado, por ejempio). 

Continuaré con aquella rutina especializada de la que hablé antes, para 
enviar "formas" especificas al RO-buffer. Una forma puede constar de varios 
caracteres separados que juntos forman una imagen que se imprime en la pan¬ 
talla. Como ej empio, tomaré el punto de mira làser, que se construirà con 
13 caracteres del siguiente modo: 
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1 



2 

3 

4 


5 

6 

7 

8 

9 


IO 

11 

12 



13 



La rutina llamada SRVR2 necesitarà dos tablas de datos. Una contendrà 
la posición deseada de cada caràcter en la pantalla, mientras que la otta sera 
una tabla de datos de caracteres, almacenada, corno de costumbre, en 8 octetos 
por caràcter. Los datos de posición y los datos de caracteres deben, por supuesto, 


01 03 05 07 09 0B OD 0F 11 13 15 17 19 1B 1D 1F 

00 02 04 06 08 0A OC 0E 10 12 14 16 18 1A 1C 1E 



COLUMNA 
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estar almacenados en el mismo orden, sin ningun espacio en bianco en las 
tablas. 

Para representar la posición de cada caràcter, he decidido numerar las cel- 
dillas de 0 a #02FF, en el orden de sus atributos. Esto tiene la ventaja de 
que el octeto de menor peso sera idèntico al del atributo y a las direcciones del 
archivo de pantalla para la celdilla. Si prefiere emplear un sistema de coorde- 
nadas, es fàcil escribir una rutina para hacer la conversión de un sistema al 
otto. O también podria modificar SRVR2. 

Como ayuda para facilitar el càlculo de los datos de posición, he aqui 
un papel cuadriculado etiquetado para la pantalla; sólo tiene que leer el valor 
de la linea y anadir el valor de la columna (ambos en hexadecimal). 

Las tareas de SRVR2 son tornar la posición de un caràcter, calcular la 
dirección del atributo, la del archivo de pantalla y la del de datos del caràcter y 
almacenarlos todos en el orden correcto en el RO-buffer. He aqui un listado 
de la rutina antes de la demosttación de su uso: 




10 

RUTINA 

PARA ENVIAR DATOS AL RO 

-BUFFER 




20 

ENTRADA 

: HL = PRINCIPIO DE LOS 

DATOS DE POSICION 



30 

DE=PRINCIPIO DEL 

AREA RESERVADA 

AL 

RO-BUFFER 




40 

BC=DIRECCION DE DATOS DE CARACTER 





50 

A= NO. 

DE CARACTERES 






60 

SALIDA 

: A=0, BC 

= 8 






70 

NOTA AF 

SE DESTRUYE 






80 







8C04 

C5 

90 SRVR2 

PUSH 

BC 






100 









1 10 

UTILIZA 

BC COMO 

UNA CONSTANTE 






120 







8C05 

010800 

130 


LD 

BC, 8 






140 









150 

A SE CONVIERTE EN UN CONTADOR 






160 







8C08 

08 

170 NXCHR9 

EX 

AF,AF 1 




8C09 

1C 

180 


INC 

E 






190 









200 

TRANSFERIR OCTETO DE NENOR PESO DE LA DIRECION DE ATRI 



2 1 0 







8C0A 

7E 

220 


LD 

A,(HL) 




8C0B 

12 

230 


LD 

(DE),A 




8C0C 

1C 

240 


INC 

E 




8C0D 

23 

250 


INC 

HL 






260 









270 

FORMAR 

EL OCTETO 

DE MAYOR PESO 

DE 

DIRECCIÓN 

DE ATRI. 



280 







8C0E 

7E 

290 


LD 

A,(HL) 




8C0F 

F658 

300 


OR 

#58 




8C1 1 

12 

310 


LD 

(DE ) , A 




8C12 

1C 

320 


INC 

E 






330 









340 

FORMAR 

EL OCTETO 

DE MAYOR PESO 

DE 

DIRECCIÓN 

DEL A . P . 



350 







8C13 

E603 

360 


AND 

3 




8C15 

07 

370 


RLCA 





8C16 

07 

380 


RLCA 





8C17 

07 

390 


RLCA 





8C18 

F640 

400 


OR 

#40 






410 









420 

ALMACENARLO 







430 
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8C1 A 

12 

440 

LD 

(DE),A 

8C1B 

1C 

450 

INC 

E 

8C1C 

23 

460 

INC 

HL 



470 

; 




480 

; RECUPERAR DIRECCION DE DATOS DE CARACTER, SALVAR DIRECCION 



490 

; DE DATOS DE 

POSICION 



500 

; 


8C1D 

E3 

510 

EX 

(SP),HL 

8C1E 

EB 

520 

EX 

DE, HL 



530 

; 




540 

; ALMACENAR DRECCION DE DATOS DE CARACTER EN EL BUFFER 



550 

; 


8C1F 

73 

560 

LD 

(HL),E 

8C20 

2C 

570 

INC 

L 

8C2 1 

72 

580 

LD 

(HL),D 

8C22 

2C 

590 

INC 

L 



600 

? 




610 

; SUMAR OCHO A 

ESTÀ 



620 

? 


8C23 

EB 

630 

EX 

DE, HL 

8C24 

09 

640 

ADD 

HL, BC 



650 

; 




660 

; SALVAR NUEVA 
SI. 

DIREC. DATOS DE CARRECUPERAR DIREC. DATOS PO 



670 

; 


8C25 

E3 

680 

EX 

(SP),HL 

8C2 6 

08 

690 

EX 

AF,AF’ 



700 

; 




710 

;SIGUIENTE CARACTER 



720 

; 


8C27 

3D 

730 

DEC 

A 

8C28 

2 ODE 

740 

JR 

NZ,NXCHR9 

8C2 A 

El 

750 

POP 

HL 

8C2B 

C9 

760 

RET 


Haciendo referencia al anterior diagrama de bloques del punto de mira làser, 

imprimiré el 

caràcter 1 en (10,15). Por tanto, tenemos: 


posición = 140 + 0F 
= #14F 


Con una inspección, vernos que el caràcter 2 està una linea hacia abajo 
(+ #20) y una columna hacia la izquierda (—1); por tanto, su posición es 
#16E, el caràcter 3 està en #16F y asi sucesivamente. Etiquetaré el principio 
de los datos de posición corno TRGPOS y el de datos de caràcter corno 
TRGDAT (ya ha sido hecho el trabajo pesado para usted, y lo encontrarà en 
el listado de la rutina). 

La primera tarea en TARGET es el llamar a INT1 para configurar el gestor 
de interrupciones. Hay que hacer esto antes de nada, ya que, corno recordarà, 
INT1 borra el buffer de impresión. Entonces desactivamos las interrupciones, 
que no son deseables mientras estamos cargando el buffer de impresión. Para 
reservar 13 caracteres en el RO-buffer utilizamos: 

LD C,13 
CALL ALTRBF 


113 








que devuelve la direction de comienzo del RO-buffer en HL. Necesitamos po- 
ner esto en DE, con: 

EX DE,HL 

a continuación preparar los otros registros para SRVR2 


LD HL,TRGPOS 

LD BC,TRGDAT 

LD A,13 

CALL SRV2 


Ahora esco)a una mascara completa (#7F, puesto que bit 7 siempre tiene 
que estar a cero) y OR-imprima (ponga a uno el bit 7 de ATT haciendo 
ATT = #80). Finalmente, inicialice las entradas de "atributos" del RO-buffer 
con SRVR1 


LD HL,#7F80 
LD (ATT),HL 
CALL SRVR1 


Como demostración, he puesto la ùltima instrucción en el bucle principal 
de forma que se llama SRVR1 después de cada interrupción, pero en este caso 
no es del todo necesario, puesto que el archivo de atributos no se altera dentro 
del bucle. SERIA necesario, sin embargo, si fuera a incorporar la rutina de de¬ 
mostración de horizonte del capitulo precedente. 

Cuando se pulsa la teda BREAK, TARGET termina por borrar el RO-buffer 
(poniendo ROLNTH a cero) y vuelve a seleccionar IMI. 


CALL DISINT 

LD A,(ROLNTH) ;SUMA (-ROLNTH) A ROLNTH 

NEG 

LD C, A 

CALL ALTRBF 
RET 


Los comentarios explican sufìcientemente el resto del listado; por tanto, he 
a qui TARGET: 


90B7 CDB790 


10 

20 

30 

40 

50 

60 

70 

80 

90 


; ESTÀ DEMO. OR-IMPRIME (OR-PRINT) EN ALTA RESOLUCION 
; UN PUNTO DE MIRA EN EL CENTRO DE LA PANTALLA 

•LLAMAR A INT PRIMERO, YA QUE ESTÀ BORRA EL BUFFER, ASI 
; COMO INICIALIZA EL GESTOR DE INTERRUPCIONES 

TARGET CALL INT1 

•NO HAY INTERRUPCIONES MIENTRAS SE MODIFICA EL BUFFER 
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100 





90BA 

F3 

1 10 

DI 






120 







130 

DEFINIR ROBUFF 

PARA 13 ENTRADAS 





140 





9 OBB 

OEOD 

150 

LD 

C, 13 



90BD 

CDBD90 

160 

CALL 

ALTRBF 





170 







180 

PREPARAR PARA 

VOLCADO DE DATOS PARA 

13 CARACTERES 



190 

EN EL BUFFER 






200 





90C0 

EB 

2 1 0 

EX 

DE, HL 



90C1 

2 1EB90 

220 

LD 

HL,TRGPOS 



90C4 

010591 

230 

LD 

BC,TRGDAT 



90C7 

3E0D 

240 

LD 

A, 13 





250 







260 

LLENAR EL RO-BUFFER 





270 





90C9 

CDC990 

280 

CALL 

SRVR2 





290 







300 

SELECCIONAR LA 

MASCARA COMPLETA, Y LA 

OPERACION 

OR-PRINT 



310 

PONIENDO EL BIT 7 DE ATT 





320 





90CC 

21807F 

330 

LD 

HL,#7F80 



90CF 

22CF90 

340 

LD 

(ATT),HL 



90D2 

FB 

350 

EI 






360 







370 

CALCULAR ATRIBUTOS 





380 





90D3 

CDD390 

390 TSLP CALL 

SRVR1 





400 







410 

ESPEBAR INTERRUPCION 





420 





90D6 

76 

430 

HALT 






440 







450 

COMPROBAR TECLA BREAK 





460 





90D7 

3E7F 

470 

LD 

A, # 7 F 



90D9 

DBFE 

480 

IN 

A,(#FE) 



90DB 

1F 

490 

RRA 




90DC 

38F5 

500 

JR 

C, TSLP 





510 







520 

SI PULSADA ENTONCES SELECCIONAR IM 1 , 

BORRAR EL 

RO-BUFFER 



530 

Y FIN 




90DE 

CDDE90 

540 

CALL 

DISINT 



90E1 

3AE190 

550 

LD 

A,(ROLNTH) 



90E4 

ED44 

560 

NEG 




90E6 

4f 

570 

LD 

C, A 



90E7 

CDBD90 

580 

CALL 

ALTRBF 



90EA 

C9 

590 

RET 






600 







610 

LOS DATOS DE POSICION 





620 





9 OEB 

4F01 

630 TRGPOS DEFW 

#14F 



90ED 

6E0 1 

640 

DEFW 

# 16E 



90EF 

6F01 

650 

DEFW 

#16f 



90F1 

7001 

660 

DEFW 

#170 



90F3 

8D0 1 

670 

DEFW 

# 18D 



90F5 

8E01 

680 

DEFW 

#18e 



90F7 

8F0 1 

690 

DEFW 

# 18F 





700 





90F9 

9001 

710 

DEFW 

#190 



9 OFB 

9101 

720 

DEFW 

#191 



90FD 

AEOI 

730 

DEFW 

# 1AE 



90FF 

AFO 1 

740 

DEFW 

# 1AF 



9101 

B001 

750 

DEFW 

# 1BO 



9103 

CFO 1 

760 

DEFW 

# 1CF 
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770 ; 

780 ; LOS DATOS DE CARACTER 

790 ; 


9105 

00 

800 TRGDAT 

DEFB 

0 

9106 

18 

810 

DEFB 

24 

9107 

10 

820 

DEFB 

16 

9108 

10 

830 

DEFB 

16 

9109 

18 

840 

DEFB 

24 

9 1 OA 

10 

850 

DEFB 

16 

910B 

10 

860 

DEFB 

16 

91 OC 

18 

870 

880 ; 

DEFB 

24 

9 1 OD 

00 

890 

DEFB 

0 

9 1 OE 

00 

900 

DEFB 

0 

9 1 OF 

00 

910 

DEFB 

0 

9110 

03 

920 

DEFB 

3 

9111 

OE 

930 

DEFB 

14 

91 12 

18 

940 

DEFB 

24 

9113 

10 

950 

DEFB 

16 

9114 

30 

960 

970 ; 

DEFB 

48 

9115 

10 

980 

DEFB 

16 

9116 

10 

990 

DEFB 

16 

9117 

FE 

1000 

DEFB 

254 

9118 

93 

1010 

DEFB 

147 

9119 

10 

1020 

DEFB 

16 

91 1A 

18 

1030 

DEFB 

24 

9 1 1B 

10 

1040 

DEFB 

16 

91 1C 

7C 

1050 

1060 ; 

DEFB 

124 

91 1D 

00 

1070 

DEFB 

0 

9 1 1E 

00 

1080 

DEFB 

0 

91 1F 

00 

1090 

DEFB 

0 

9120 

80 

1 100 

DEFB 

128 

9121 

EO 

1110 

DEFB 

224 

9122 

30 

1120 

DEFB 

48 

9123 

10 

1 130 

DEFB 

16 

9124 

18 

1 140 

1150 ; 

DEFB 

24 

9125 

00 

1 160 

DEFB 

0 

9126 

00 

1 170 

DEFB 

0 

9127 

00 

1 180 

DEFB 

0 

9128 

92 

1 190 

DEFB 

146 

9129 

FF 

1200 

DEFB 

255 

9 1 2 A 

00 

12 10 

DEFB 

0 

9 1 2B 

00 

1220 

DEFB 

0 

9 12C 

00 

1230 

1240 ; 

DEFB 

0 

9 1 2D 

21 

1250 

DEFB 

33 

9 1 2E 

61 

1260 

DEFB 

97 

9 12F 

43 

1270 

DEFB 

67 

9130 

4A 

1280 

DEFB 

74 

9131 

FF 

1290 

DEFB 

255 

9132 

42 

1300 

DEFB 

66 

9133 

43 

1310 

DEFB 

67 

9134 

61 

1320 

1330 ; 

DEFB 

97 

9135 

D7 

1340 

DEFB 

215 

9136 

1 1 

1350 

DEFB 

17 

9137 

1 1 

1360 

DEFB 

17 

9138 

00 

1370 

DEFB 

0 

9139 

D7 

1380 

DEFB 

215 

9 13 A 

00 

1390 

DEFB 

0 

9 13B 

1 1 

1400 

DEFB 

17 

9 13C 

1 1 

1410 

1420 ; 

DEFB 

17 

9 13D 

08 

1430 

DEFB 

8 
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913E 

OC 

1440 

DEFB 

12 

913F 

84 

1450 

DEFB 

132 

9140 

A4 

1460 

DEFB 

164 

9141 

FF 

1470 

DEFB 

255 

9142 

84 

1480 

DEFB 

132 

9143 

84 

1490 

DEFB 

132 

9144 

OC 

1500 

1510 ; 

DEFB 

12 

9145 

00 

1520 

DEFB 

0 

9146 

00 

1530 

DEFB 

0 

9147 

00 

1540 

DEFB 

0 

9148 

92 

1550 

DEFB 

146 

9149 

FE 

1560 

DEFB 

254 

91 4a 

00 

1570 

DEFB 

0 

914b 

00 

1580 

DEFB 

0 

9 14C 

00 

1590 

1600 ; 

DEFB 

0 

9 14D 

21 

1610 

DEFB 

33 

9 1 4e 

30 

1620 

DEFB 

48 

9 1 4f 

10 

1630 

DEFB 

16 

9150 

18 

1640 

DEFB 

24 

9151 

OE 

1650 

DEFB 

14 

9152 

03 

1660 

DEFB 

3 

9153 

00 

1670 

DEFB 

0 

9154 

00 

1680 

1690 ; 

DEFB 

0 

9155 

D7 

1700 

DEFB 

215 

9156 

7C 

1710 

DEFB 

124 

9157 

10 

1720 

DEFB 

16 

9158 

18 

1730 

DEFB 

24 

9159 

10 

1740 

DEFB 

16 

9 15A 

93 

1750 

DEFB 

147 

915B 

FE 

1760 

DEFB 

254 

9 15C 

10 

1770 

1780 ; 

DEFB 

16 

9 15D 

08 

1790 

DEFB 

8 

9 15E 

18 

1800 

DEFB 

24 

9 15F 

10 

1810 

DEFB 

16 

9160 

30 

1820 

DEFB 

48 


Como recordarà, hemos previsto, en la parte del procesador de impresión 
del gestor de interrupciones, una función de "OR-impresión" que funde un nuevo 
caràcter con los contenidos actuales de una celdilla de pantalla en el archivo de 
pantalla. Ahora proporcionaré las rutinas de apoyo para està función. 

Siempre que vayamos a imprimir un caràcter en la pantalla, necesitaremos 
saber si los contenidos de la celdilla de destino han de ser conservados por la 
OR-impresión o destruidos por una OVER-impresión. Por ejempio, cuando dos 
caracteres en un juego entran en la misma celdilla, probablemente querremos 
fundirlos, mientras que si movemos un caràcter desde una celdilla a la siguiente, 
arrastrando una celdilla en bianco detràs para borrar la imagen anterior, entonces 
seguramente no queremos OR-imprimir el espacio con la imagen vieja. 

Para este fin necesitamos un mapa en la memoria, que denominaré OR- 
mapa, para llevar cuenta de qué celdillas estàn "ocupadas". Sólo se necesita un 
bit por celdilla; con un 1 indica "celdilla ocupada" y con un 0 indica "celdilla 
vada". 

Por consiguiente, tenemos cuatro octetos para cada una de las 24 lineas de 
pantalla, que constituyen un OR-mapa de 96 octetos. No es sorprendente, por 
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tanto, que haya etiquetado el principio de esto corno ORMAP. Para reservar 
el espacio que se precisa, necesitamos la linea: 

ORMAP DEFS 96 

Habrà que borrar el OR-mapa con regularidad, asi es que, antes de con¬ 
tinuar, veamos una rutina para Penarla con ceros, denominada CLOR: 




10 

;RUTINA 

PARA 

BORRAR EL OR-MAP 



20 

• 



872A 

212A87 

30 

CLOR 

LD 

HL,ORMAP 

872D 

015F00 

40 


LD 

BC, 95 

8730 

70 

50 


LD 

(HL),B 

8731 

54 

60 


LD 

D, H 

8732 

5D 

70 


LD 

E, L 

8733 

13 

80 


INC 

DE 

8734 

EDBO 

90 


LDIR 


8736 

C9 

100 


RET 



Cada vez que nos preparamos para enviar un caràcter al buffer de impresión 
y deseamos que sea considerado para OR-impresión con los caracteres existentes 
y futuros, debemos acceder el bit correspondiente a la celdilla de destino en el 
OR-mapa: 

Si este bit està a uno, ya hay algo en esa celdilla, y seleccionamos OR-im¬ 
presión poniendo a uno el bit 7 del octeto de atributo, ATT. Si el bit es cero, 
para lo que nos interesa la celdilla està ahora vada, y corno hemos puesto a uno 
el bit de OR-mapa para indicar que estaba ocupada, ponemos a cero el bit 7 de 
ATT para seleccionar OVER-impresión. Entonces se envia el caràcter al buffer 
de impresión empleando HIPRINT (o su propia rutina) de la forma usuai. 

La siguiente rutina, ORCHK, lleva a cabo el proceso descrito arriba, em¬ 
pleando el punterò ATCC, que contiene la situación del octeto de atributo 
actual, corno un medio para localizar el bit correcto del OR-mapa. No se nece- 
sita ningun valor de entrada, y los comentarios del listado proporcionan sufi- 


dente 

explicación: 




10 

RUTINA PARA DECIDIR SI OR-PRINT EN LA CELDILLA DE 



20 

CARACTER ACTUAL 



30 


8A9 1 

2A918A 

40 ORCHK LD HL,(ATCC) 



50 




60 

TOMAR DIRECCION DE ATRIBUTOS Y DIVIDIR SUS 10 BUS 



70 

DE MENOR PESO POR 8 



80 


8A94 

7D 

90 

LD A, L 

8A95 

CB1C 

100 

RR H 

8A97 

1F 

1 10 

RRA 

8A98 

CB1C 

120 

RR H 

8A9A 

1F 

130 

RRA 

8A9B 

CB3F 

140 

SRL A 



150 




160 

PONER EL RESULTADO EN DE 



170 


8A9D 

5F 

180 

LD E, A 

8A9E 

1600 

190 

LD D, 0 

8AA0 

7D 

200 

LD A, L 
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2 1 0 


8AAE 4f 


8AAF 

8AB0 

8AB3 


8AB4 

8AB6 


8AB8 

8ABA 


A6 

11B08A 
1A 


CBBF 

2802 


CBFF 

12 




220 

;SUMAR 

DIRECCION BASE DE TABLA 



230 

; 



8AA1 

21A18A 

240 


LD 

HL,ORMAP 

8AA4 

19 

250 


ADD 

HL, DE 



260 

; ROTAR 

UNA MASCARA 

HASTA QUE ' 

8AA5 

E607 

270 


AND 

7 

8AA7 

47 

280 


LD 

B, A 

8AA8 

04 

290 


INC 

B 

8AA9 

3E01 

300 


LD 

A, 1 

8AAB 

OF 

310 

NXTROT 

RRCA 


8AAC 

10FD 

320 


DJNZ 

NXTROT 


1 ' ESTE SOBRE EL BIT REQUERIDO 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


PONER LA MASCARA EN C 


LD 


C, A 


COMPROBAR SI ESTÀ CELDILLA YA ESTÀ OCUPADA 


AND 

LD 

LD 


(HL) 
DE,ATT 
A,(DE) 


SI NO SELECCIONAR OVER-PRINT (SOBREIMPRIMIR) 


RES 

JR 


7, A 

z’notor 


SI NO SELECCIONAR OR-PRINT 


SET 

NOTOR LD 


7,A 

(DE),A 


AHORA PONER EL BIT EN OR-MAP 
PARA INDICAR "CELDILLA UTILIZADA" 


8ABB 

79 

570 

LD 

A, C 

8ABC 

b6 

580 

OR 

(HL) 

8ABD 

77 

590 

LD 

(HL) ,A 

8ABE 

C9 

600 

RET 
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12 

Animación perfecta 

de "sprites" 


Por fin estamos preparados para empezar el desarrollo de la generación 
de sprites ., de las rutinas de impresión y control para la obtención de gràfìcos 
de pixel sin temblores junto con el procesador de impresión controlado por 
interrupciones. 

Como recordarà, definimos un sprite corno una imagen contenida en un 
bloque movible de objeto (de ahi su otro nombre MOB), de caracteres adyacen- 
tes en la pantalla. Este bloque siempre sera rectangular, y la imagen puede ser 
de cualquier tamano, desde un caràcter de lxl. 

La forma mas obvia para mover un sprite desde una posición a otra es 
borrar la vieja imagen imprimiendo espacios encima, y posteriormente imprimir 
la nueva imagen en la nueva posición. Si las dos imàgenes son mutuamente 
exclusivas (es decir, no se superponen), ésta es una tècnica perfectamente acep- 
table. 

Sin embargo, corno suele ocurrir, si sólo hemos movido el sprite unos pocos 
pixels, parece que no merece la pena imprimir un espacio en una celdilla 
comun a ambas imàgenes, sino reemplazarla con parte de la nueva imagen 
casi instantàneamente. 

Para evitar està pérdida de riempo, utilizaremos una aproximación mejor 
para la animación del sprite. Cada forma estarà rodeada por una estrecha re- 
gión de pixels en bianco para que, segun vayamos moviéndonos de una posición 
a la siguiente, estos blancos que se arrastran vayan borrando cualquier parte de la 
imagen vieja que no haya sido borrada por la impresión de la nueva imagen. 
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De està forma, se conseguirà la animación con sólo una operación de im- 
presión en lugar de las dos que necesitaba la tècnica anterior, y el nùmero de 
caracteres que necesitamos imprimir sera la mitad. Esto es una ventaja consi- 
derable temendo en cuenta que el procesador de impresión estàndar sólo puede 
imprimir 40 caracteres por cuadro de TV. 

Durante el resto de està discusión me referiré a una forma de caràcter que 
se mueve con pasos de un pixel. 

Si nuestra forma puede contenerse dentro de (m) columnas (es decir, es menor 
o igual que (m x 8) pixels de ancho), vemos que puede, a lo sumo, ocupar 
(m + 1) columnas separadas. De ahi que el sprite deba tener por lo menos 
(m + 1) columnas de ancho. Por ejemplo, nuestra forma de 1 x 1 puede ocupar 
las columnas 14 y 15 de la forma siguiente: 



2 columnas necesarias 
para el SPRITE 


Si, ademàs, imponemos la restricción de que la forma nunca pueda ocupar 
mas de (m + 1) columnas diferentes al moverse de una posición a la siguiente, 
vemos que tanto la imagen vieja corno la nueva pueden caber en un àrea de 
(m + 1) columnas de ancho. 

Por ejemplo, debemos restringir el movimiento de nuestra forma lxl 
para que, si la vieja imagen ocupa la columna 14, la nueva no ocupe la 16. 
De ahi, si nuestra forma de las columnas 14 y 15 tiene dos columnas de pixels 
en bianco a su derecha en la columna 15, entonces no debemos permitirle que 
se mueva màs de dos pixels a la derecha: 


+2 PIXELS 



13 14 15 16 
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Està restricción es, en la pràctica, de fàcil aplicación y tiene corno resultado 
que podemos animar una forma contenida en (m x n) caracteres imprimiendo 
continuamente una serie de imàgenes de sprite de dimensiones fìjas (m + 1) por 
(n + 1). Por tanto, para mover nuestra forma de 1 x 1 por la pantalla necesita- 
remos una celdilla de sprite de 2 x 2. 

Ahora, si se puede imaginar nuestra forma de m x n dotando por su sprite 
de (m + 1) x (n + 1), vera que, gracias a las 8 diferentes posiciones horizontales 
y las 8 diferentes posiciones verticales que la forma puede tener, el sprite resul¬ 
tante puede ser cualquiera de las 8 x 8 = 64 imàgenes posibles. 


m + 1 



8 PIXELS 


Si la forma es movible un pixel cada vez en cada una de las direcciones 
de X e Y, cada una de estas 64 estructuras posibles necesitaràn ser impresas 
en algun momento. Antes de seguir con està discusión, seria prudente definir 
algunas variables. Llamaremos XP a la distancia horizontal (en pixels) de la 
forma desde el borde izquierdo de su sprite e YP a la distancia vertical de la 
forma desde el borde inferior del sprite ; en consecuencia: 



B O R D E S 


Ahora tenemos una elección directa sobre el mètodo de generación de las 
estmcturas de sprite. Podemos o almacenar sólo una de las "imàgenes" del sprite 
en la memoria y manipular la forma dentro de ella para obtener bit por bit 
la imagen deseada para impresión, o podemos almacenar las imàgenes en una 
tabla algo mayor en RAM, utilizando una tècnica de indices para "entresacar" 
la imagen deseada sin màs. 

La experiencia ha demostrado que, si bien la primera tècnica ocupa tan poco 
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corno un octavo de la cantìdad de memoria disponible para almacenar la ima- 
gen y, por tanto, es util si el ahorro de RAM es muy importante, tarda mucho en 
realizar las operaciones de desplazamiento de los bits de XP necesarias para cada 
uno de los (M + 1) x N x 8 octetos afectados, por lo que es preferible, siempre 
que sea posible, utilizar la ùltima tècnica. 

Aunque el sprìte puede ser una de las 64 estructuras posibles, la situación 
no es tan seria corno parece. No necesitamos almacenar en memoria 64 imàgenes 
diferentes que correspondan a los diferentes valores de YP de una imagen que 
corresponda a un XP dado. De està forma sólo necesitamos almacenar (corno 
màximo) 8 imàgenes, una para cada valor de XP. 

Almacenaremos las imàgenes de una en una, cada una de ellas en una co- 
lumna de cada vez, trabajando desde la parte superior a la inferior y de izquierda 
a derecha. De està forma, el orden del almacenamiento de una imagen de 
nuestra forma de lxl en su sprìte de 2 x 2 serà: 


0 

2 

1 

3 


Cada imagen se almacenarà suponiendo YP = 0, es decir, la forma se en- 
contrarà en el borde inferior del sprìte y la linea superior de la imagen estarà 
en bianco. Las imàgenes se almacenan en orden creciente de XP; asi para nuestra 
forma 1 x 1 la primera imagen serà: 

XP = 0 


y la ùltima: 

XP = 7 


| 1 PIXEL 
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Segun se desliza nuestra forma por la pantalla, las rutinas de animación 
van haciendo eidos a través de la secuencia de imàgenes a medida que XP 
va variando de 0 a 7. Ahora definiré la posición del sprìte en pantalla referida 
a la posición de la esquina superior izquierda de la imagen (XC, YC), donde 
XC se mide hacia la derecha desde cero e YC hacia abajo desde cero y C re¬ 
presenta las coordenadas de la celdilla en lugar de la P de pixels. Asi tenemos: 

0 

--► XC 

ESQUINA 

SUPERIOR 

IZQUIERDA 


YC 


Si la forma està moviéndose hacia la izquierda, estaremos moviéndonos 
hacia atràs a través de las imàgenes. Cuando XP alcanna 0, la columna de màs 
a la derecha estarà completamente en bianco y podremos decrementar XC y 
cambiar XP a 7 sin dejar huella alguna de la vieja imagen en su columna de 
màs a la derecha, que està fuera del àrea del nuevo sprìte . Sin embargo, si se 
està moviendo hacia la derecha, no bastarà con cambiar de la imagen 7 a la 
imagen 0, incrementando XC, ya que esto dejaria una columna de pixels de la 
vieja imagen en la columna que se encuentra inmediatamente a la izquierda de 
la nueva, de està forma: 



XP = 7 


► MOVIMIENTO 



t 

DESPERDICIOS 


XP = 0 
XC = XC + 1 


Para solucionar este problema necesitamos simular una "novena" imagen, 
y esto se harà incluyendo una columna extra de celdillas en bianco inmedia- 
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tamente ANTES de la imagen 0. A continuación moveremos desde XP = 7, 
haciende* apuntar el generador de sprite a està columna en bianco e imagi- 
nàndonos que XP = 8. Para el resto de las rutinas, XP sera 0 y XC sera in- 
crementado. Entonces tendremos: 




► MOVIMIENTO 

"XP = 8", es decir, XP = 0, 

XC = XC + 1 



Las diversas imàgenes correspondientes a cada valor de YP se produciràn 
haciendo apuntar el generador de sprite a la YP-ava fila de la XP-ava imagen, 
contando hacia abajo desde la fila cero. La razón para almacenar las imàgenes 
columna por columna puede verse ahora. Miremos la disposición en memoria 
de la imagen 4 de nuestra forma de 1 x 1 . Vemos que después de la esquina in- 
ferior izquierda de està imagen viene la superior derecha, a continuación la 
esquina inferior derecha y seguidamente la superior izquierda de la imagen si- 
guiente. Asi: 



Al apuntar a la fila 4 de la celdilla 0, desplazamos efectivamente cuatro 
filas hacia arriba todos los octetos de la imagen y el resultado es una imagen 
centralizada con XP = 4, YP = 4. 
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4 OCTETOS 



De manera similar a XP = 8, simularemos YP = 8 haciendo apuntar el ge- 
nerador de sprite a la fila 0 de la celdilla 1 cuando se esté moviendo hacia 
arriba desde YP = 7. Observe que YP e YC estàn aumentando en direcciones 
opuestas, por tanto, cuando YP alcanza 7 dejamos YP = 0 Y DECREMENTA- 
MOS YC. 


Debo decir en este momento que, por supuesto, no es necesario en absoluto 
almacenar 8 imàgenes separadas si no necesitamos un movimiento en la direc- 
ción X de un pixel por ciclo. Después de todo, hay poca necesidad de almacenar 8 
imàgenes si efectuamos movimiento sólo en pasos de dos pixels ., puesto que sólo 
habria 4 valores alcanzables de XP, y, por tanto, sólo se utilizarian 4 de las 
imàgenes. De elio resulta que tenemos elección entre almacenar 8, 4, 2 y 1 imà¬ 
genes separadas. 

Con 8 imàgenes, es posible cualquier velocidad horizontal hasta de 8 pixels 
por movimiento. Con 4 imàgenes, tenemos un paso de dos pixels entre imàgenes 
y por tanto se permiten unas velocidades de 0, 2, 4, 6 y 8 pixels , pero XP 
siempre tiene que ser par. Con dos imàgenes, tenemos un paso de 4 pixels 
entre imàgenes, y, por tanto, es posible una velocidad de 0, 4 u 8 pixels , siendo 
XP mùltiplo de cuatro. 

Por ejemplo, si representamos nuestra forma de 1 x 1 en dos imàgenes 
separadas (temendo en cuenta que la forma està siempre en la esquina inferior 
izquierda de la imagen 0), tenemos la secuencia: 


MOVIMIENTO 



(simulada a partir de imagen 0) 
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Obviamente con una imagen sólo tenemos el caso sencillo del movimiento 
de un caràcter cada vez. 

Ahora es posible calcular la cantidad de memoria que se necesita para alma- 
cenar las imàgenes de cualquier sprite. Tome una forma de caràcter de (m x n) 
y enciérrela en un sprite de caràcter de (m + 1) x (n + 1). Al producir (a) imà¬ 
genes de este sprite , y temendo en cuenta que cada celdilla necesita 8 octetos y 
cada serie de imàgenes requiere una columna anterior en bianco, tenemos: 

Memoria necesitada = 8 x a x (m + 1) x (n + 1) + 8 x (n + 1) = 

= 8 (a(m + 1) + 1) (n + 1) octetos 

Por tanto, para una forma de un ancho de tres columnas por dos lineas de 
profundidad, definida por cuatro imàgenes, tenemos m = 3, n = 2, a = 4 y: 

Memoria necesitada = 8(4(3 + 1) + 1) (2 + 1) 

= 408 octetos 

Ademàs de esto, y suponiendo que todas las imàgenes para los sprites actual- 
mente en uso estàn almacenadas consecutivamente en la memoria, debemos in- 
cluir 8 octetos cero después de la ùltima imagen del ùltimo sprite para permitir 
la ocupación de la memoria cuando YP = 8 y esté siendo utilizada la ùltima 
imagen. En este caso, aquellos 8 octetos representaràn la esquina inferior derecha 
del sprite. 

Como ejemplo, supongamos que tenemos dos sprites en uso, ambos de la 
forma de 3 x 2 corno en el càlculo de memoria previo. Si uno es un avión y el 
otro un tren, entonces una secuencia de reserva de memoria adecuada seria: 

PLNSPC DEFS 408 

TRNSPC DEFS 408 

DEFW 0,0,0,0 ;8 OCTETOS 

(utilizando etiquetas con sufìjos SPC de eSPaCio). 

Discutamos ahora el mètodo de control y seguimiento de la posición de los 
sprites. Para cada sprite utilizaremos una tabla de 17 octetos de información 
que llamaremos "datos de movimiento del sprite" . Està tabla indicarà a nuestra 
rutina de animación a qué velocidad se mueve el sprite a lo largo de X e Y, 
la situación del sprite en cualquier momento, la situación de los datos de imagen, 
las dimensiones del sprite , el color a imprimir, y asl sucesivamente. Siempre que 
deseemos mover un sprite , haremos apuntar el registro de indice IY al prin¬ 
cipio de sus datos de movimiento y seguidamente llamaremos a la rutina de 
animación que harà todo el trabajo que queda, refìriéndose a la tabla de datos 
de movimiento. 

Antes de continuar con un desglose completo de està tabla, redefìniremos 
primero XP para que sea el nùmero de la imagen utilizada actualmente por el 
generador de sprites. Por tanto, si hay cuatro imàgenes, XP reciclarà continua- 
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mente por los valores (0, 1, 2, 3) segun el sprite se mueve a través de la 

pantalla. Es decir, que XP se incrementa continuamente y reducido mòdulo 
(nùmero de imàgenes diferentes). 

Cuando hay ocho imàgenes, XP tendrà el mismo valor que antes, o sea el 
nùmero de pixels existentes entre la forma y el borde izquierdo del sprite. De 
no ser asl, necesitarà multiplicar XP por el paso entre imàgenes (2, 4 u 8 pixels) 
para encontrar està distancia. Vale la pena considerar està conversión al escribir 
rutinas de detección de colisiones y cosas por el estilo. 

He aqul, pues, un listado de los 18 octetos de datos de movimiento para 
cada sprite , seguido por algunas notas explicativas: 


Dirección 

Contenidos 

IY 

XP = Nùmero de imagen actual (<8). 

IY+ 1 

VX = Indice de cambio de XP (positivo o negativo). 

IY + 2 

N = Nùmero de imàgenes = (valor màx. de XP) + 1. 

IY + 3 

XC = Posición de la columna de sprite màs a la izquierda. 

IY + 4 

YP (0-7) 

IY + 5 

VY = Indice de cambio de YP (positivo o negativo). 

IY + 6 

YC = Posición de linea de sprite màs superior. 

IY + 7 

IY + 8 

L Dirección de fila 0, celdilla 0 de imagen 0. 

IY + 9 

Cuenta de eidos (véase notas). 

IY+ 10 

Periodo de eidos (véase notas). 

IY + 11 

Anchura del sprite expandido. 

IY + 12 

Altura del sprite expandido. 

IY+ 13 
IY+ 14 

^ j l Longitud de una imagen = anchura x altura x 8. 

IY+ 15 

Octeto de atributo y bandera para OR-impresión. 

IY+ 16 

Màscara de atributo. 


La "cuenta de eidos" y el "periodo de eidos" de (IY + 9) e (1Y + 10) se 
utilizaràn para aumentar la versatilidad de nuestra rutina de control de sprite. 
En cuanto se llama a la rutina, se decrementarà la cuenta de eidos. Si la cuenta 
no es cero, se harà un retorno inmediato. En caso contrario, se volverà a cargar 
la cuenta de eidos con el "periodo de ciclo" constante que controla indirecta- 
mente la frecuencia de movimiento del sprite , y el sprite se moverà y se imprimirà. 
Veremos màs detalles màs adelante. 

En vista de la cantidad de memoria que se necesita para almacenar las 
imàgenes de un sprite pienamente operacional, seria aconsejable almacenar las 
estructuras de bits de las varias formas que necesita un programa de una manera 
lo màs compacta posible, y posteriormente expandirlo a unas imàgenes de sprite 
preparadas para ser utilizadas corno y cuando se desee. Necesitaremos algunas 
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rutinas de utilidad para hacer esto, y he preferido proporcionarle un sistema de 
expansión de sprite en dos etapas. 

La primera rutina, llamada PADOUT, copiarà la forma inactiva desde su 
àrea de almacenamiento al "àrea de imagen de sprite ", anadiendo una columna 
de blancos a la derecha, una linea de blancos encima de ella y la columna en 
bianco reglamentaria precediendo a la imagen 0. La segunda rutina, SPREX tra- 
bajarà con una copia de la imagen 0, fila por fila, utilizando operaciones de 
desplazamiento y rotación para generar las otras imàgenes. 

Los datos del sprite "pelado" deben almacenarse en una columna cada vez, 
una fila cada vez, trabajando de izquierda a derecha y desde la parte superior 
a la inferior, de la misma manera en la que se almacenan las imàgenes. 

Con referencia a la parte anterior de este capftulo, recordarà que el movi- 
miento de la forma de ancho (m) columnas debe restringirse para que no ocupe 
màs de (m + 1) columnas al moverse de una posición a la siguiente. Entonces 
no estudié tal restricción por ser "de fàcil aplicación". Ahora es el momento 
de explicar còrno se hace. 

La forma debe incluir una región de blancos en forma de L corno bordes 
superior y derecho de entre 0 y 7 pixels de ancho. La anchura de està región 
de seguridad està determinada corno sigue. 

Suponga que la imagen de valor màs alto utilizada por el sprite es la que 
corresponde a XP m àx y que la velocidad absoluta de cambio de XP es VX por 
movimiento: sea D el paso en los pixels entre las posiciones de la forma en 
imàgenes sucesivas de sprite. Entonces el nùmero de pixels que se mueven cada 
vez es D x VX. Vemos que la distancia de la forma desde el borde izquierdo 
del sprite es (XP x D) y, por tanto, corno minimo hay (8 — (XP m à x x D)) pixels 
de la forma en la columna de màs a la izquierda. 

Si el margen de seguridad derecho del sprite tiene un ancho de P x pixels , 
habrà corno minimo (8 — (XP m à x x D) + P x ) pixels en bianco en la columna de 
màs a la derecha del sprite. Algunos diagramas pueden ayudarle: 



Arriba vemos còrno una forma tiene que "encogerse" para permitir que quepa 
un espacio en bianco a su alrededor. Cuando se utiliza la imagen XP m à x tenemos: 
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MOVIMIENTO 


► 



y vemos que, si se obedece nuestra regia de que la forma de las m columnas 
no ocupe mas de m + 1 durante el movimiento, sólo podemos permitir 
(8 — (XPmàx x D) + P x ) pixels de movimiento a la derecha. Ahora D x VX es 
la distancia que se mueve a la derecha; por tanto: 


8 — (XPmàx X D) + Px — D x VX => Px + 8 — D (VX + XPmàx) 
y finalmente: 


Px = D (VX + XPmàx) - 8 


Después de tanta teoria, pienso que un ejemplo pràctico ayudaria a aclarar la 
situación. 

Supongamos que estamos dando animación a un coche, que en un momento 
dado estarà moviéndose en pasos de un pixel\ pero que de momento està mo- 
viéndose dos pixels cada vez. Para elio necesitaré un juego completo de 8 imà- 
genes, lo que significa que "el paso entre imàgenes" es de un pixel.\ es decir: 


D = 1 


para mover el coche con pasos de dos pixels , tenemos 
VX = 2/D = 2/1=2 

Ahora con està velocidad constante estaremos reciclando o bien a través de 
las imàgenes "impares", donde: 

XP = [1, 3, 5, 7] dando XPmàx = 7 

o bien por las imàgenes "pares", donde: 

XP = [0, 2, 4, 6] dando XPmàx = 6 
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Por tanto, tenemos para el ciclo "impar": 


P x = 1 (2 + 7) — 8 — 1 pixel 
y para el ciclo par: 

P x = 1 (2 + 6) - 8 = 0 

Esto nos da el resultado de que, si podemos restringir XP a los multiplos 
de VX, entonces no se necesitarà margen derecho, pero, si estamos forzados a 
utilizar las imàgenes para valores "impares" de XP, la columna de pixels de mas 
a la derecha de la forma debe estar en bianco. Por tanto, la forma del coche 
debe incluir un margen de seguridad a la derecha en bianco de un ancho de un 
pixel. 

Se puede aplicar un anàlisis similar para determinar el ancho necesario 
del margen superior de seguridad. Por tanto, no repetiré todos los detalles engo- 
rrosos. Tornando la velocidad vertical absoluta VY (0-8 pixels por movimiento) 
y el valor màximo de YP, YPmàx (siempre menor que 8) encontramos que el 
espesor del margen superior, P y pixels , està dado por 


Py = VY + YPmàx - 8 


Supongamos, corno ejemplo complementario, que deseamos disenar, dentro 
de un sprite de 4 x 3, y, por tanto, de una forma de 3 x 2, un avión de combate 
capaz de moverse hasta cuatro pixels por movimiento en la dirección X y 
hasta 3 pixels en la dirección Y. ;Qué cantidad de la forma 3x2 tenemos 
libre para disertarlo? 

Puesto que las velocidades pueden ser tan bajas corno hasta de un pixel 
por cuadro, necesitaremos de nuevo 8 imàgenes, y un paso D = 1 pixel. Como 
màximo tenemos VX = 4 y VY = 3. Es bastante posible que en algun momento 
podamos alcanzar XP = 7 e YP = 7, (si tiene dudas, utilice los valores màximos 
disponibles, es decir, YP = 7 y XP = [nùmero de imàgenes] — 1). Esto nos da: 

Px = D (VX + XP mà x) - 8 = 1 (4 + 7) - 8 = 3 


y 

Py = VX - YPmàx - 8 = 3 + 7-8 = 2 

Asi es que necesitamos un margen superior de dos pixels y un margen de¬ 
recho de 3. Por tanto, el àrea que nos queda libre para disenar es (3 x 8) — 3 = 21 
pixels de ancho, y (2x8) — 2=14 pixels de alto, asi: 
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3 CELDILLAS = 24 PIXELS 


2 CELDILLAS = 
16 PIXELS 



Ahora proporcionaré la rutina PADOUT citada previamente que expande 
el "sprite estàndar” o los datos ”de la forma”, almacenados en su forma compac- 
ta, hasta un "sprite expandido” que se forma corno la imagen 0 en nuestra 
àrea de imagen de sprite reservado anteriormente: 

Tornando nota de los requisitos de entrada del listado en ensamblador, 
vernos que, para la forma de 3 x 2 del ej empio superior, una rutina ràpida ade- 
cuada para llamar a PADOUT seria corno sigue: 


LD HL,TELSPC 
LD DE,TELDAT 
LD BC,#403 

LD IY,TELMTN 

CALL PADOUT 
LD D, 1 
CALL SPREX 


; AREA DE IMAGEN 
;DATOS DE SPRITE 
; B=ANCHURA, C = ALTURA 
;DATOS MOVIMIENTO 

; PASO ENTRE IMAGENES 
; DE UN PIXEL 


Observe que llamamos a PADOUT con IY apuntando a los datos de mo- 
vimiento para nuestra forma. Esto es debido a que la rutina inicializa los 
valores (IY + 7), (IY + 8), (IY + 11), (IY + 12), (IY + 13) e (IY + 14) (véase 
tabla anterior de los detalles de éstos). jBueno, adelante! 


io 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 


PARA RELLENAR EL SPRITE VACIO Y DAR ENTRADA A LOS 
DATOS DE MOVIMIENTO DEL SPRITE 

ENTRADAS : DE=DIRECCION DE DATOS DE SPRITE 
HL=AREA DE ALMACENAMIENTO DE IMAGEN 
B=ANCHURA DE COLUMNA DEL SPRITE ESTANDAR 
C=PROFUNDIDAD DE LINEA DEL SPRITE ESTANDAR 
IY=DIRECCION DE DATOS DE MOVIMIENTO DE SPRITE 
SALIDA : HL= DIRECCION DE IMAGE 0 
B= ANCHURA DE COLUMNA DEL SPRITE EXPANDIDO 
C=PROFUNDIDAD DE FILA DEL SPRITE EXPANDIDO 
NOTA HL Y BC SE UTILIZARAN POR "SPREX" 

AF’ SE DESTRUYE 

CALCULAR NO. DE FILAS DEL SPRITE EXPANDIDO 
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160 ; 
170 ; 


8F7D 

OC 

180 PADOUT INC C 

8f7E 

FD7 1 OC 

190 

LD (IY+12),C 

8f8 1 

CB2 1 

200 

SLA C 

8f83 

CB2 1 

2 1 0 

SLA C 

8f85 

CB2 1 

220 

SLA C 



230 




240 

ALMACENAR BC PARA SPREX 



250 


8f87 

78 

260 

LD A, B 

8f88 

04 

270 

INC B 

8f89 

FD700B 

280 

LD (IY+11 ) ,B 

8f8c 

C5 

290 

PUSH BC 



300 




310 

A CUENTA LAS COLUMNAS 



320 


8f8d 

08 

330 

EX AF,AF 1 



340 




350 

ALMACENAR DIRECCION DE DATOS 



360 


8f8e 

D5 

370 

PUSH DE 



380 




390 

COMENZAR CON UNA COLUMNA DE BLANCOS 



400 


8F8F 

0600 

410 

LD B, 0 

8F9 1 

C5 

420 

PUSH BC 

8F92 

70 

430 

LD (HL),B 

8F93 

OD 

440 

DEC C 

8F94 

CDD58F 

450 

CALL CL 

8F97 

CI 

460 

POP BC 

8F98 

79 

470 

LD A, C 

8F99 

D608 

480 

SUB 8 

8F9B 

4f 

490 

LD C, A 



500 




510 

BC=NO. DE FILAS EN LA COLUMNA ESTANDAR 



520 


8F9C 

E 1 

530 

POP HL 



540 




550 

ALMACENAR COMIENZO DE IMAGE 0 



560 


8F9D 

D5 

570 

PUSH DE 

8F9E 

C5 

580 

PUSH BC 

8F9F 

08 

590 

EX AF,AF 1 



600 




610 

INSERTAR UN ESPACIO EN LA LINEA DE ARRIBA 



620 


8FA0 

E5 

63 0NXSCOL PUSH HL 

Sfai 

EB 

640 

EX DE,HL 

8FA2 

3600 

650 

LD (HL),0 

8fA4 

0E07 

660 

LD C, 7 

8fA6 

CDD58F 

670 

CALL CL 

8FA9 

E 1 

680 

POP HL 



690 




700 

LLENAR EL RESTO DE LA COLUMNA CON DATOS DE SPRITE 



710 


8FAA 

CI 

720 

POP BC 

8FAB 

C5 

730 

PUSH BC 

8FAC 

EDBO 

740 

LDIR 



750 




760 

HACER LA SIGUIENTE COLUMNA ESTANDAR 



770 


8fae 

3D 

780 

DEC A 

8faf 

2 OEF 

790 

JR NZ,NXSCOL 



800 




810 

EXPANDIR CON UNA COLUMNA BLANCA MAS A LA DER. 


820 
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8FB1 

CI 

830 

POP 


BC 

8FB2 

79 

840 

LD 


A, C 

8fb3 

C607 

850 

ADD 


A,7 

8fb5 

4f 

860 

LD 


C, A 

8fb6 

EB 

870 

EX 


DE, HL 

8fb7 

70 

880 

LD 


(HL),B 

8fb8 

CDD58F 

890 

CALL 


CL 



900 






910 

RECUPERAR DIRECCION DE IMAGE 0 



920 




8fbb 

El 

930 

POP 


HL 



940 






950 

Y VALOR EN DE, 

PARA SPREX 



960 




8fbc 

DI 

970 

POP 


DE 

8fbd 

D5 

980 

PUSH 


DE 

8FBE 

E5 

990 

PUSH 


HL 



1000 

1010 

CALCULAR NO. 

DE 

BYTES EN UNA IMAGEN Y ALMACENARLA EN 



1020 

DATOS DE MOVIMIENTO DE SPRITE 



1030 




8FBF 

60 

1040 

LD 


H, B 

8FC0 

68 

1050 

LD 


L, B 

8FC1 

42 

1060 

LD 


B, D 

8FC2 

54 

1070 

LD 


D, H 

8FC3 

19 

1080 MULI ADD 


HL, DE 

8fc4 

10FD 

1090 

DJNZ 


MULI 

8fc6 

FD750D 

1 1 00 

LD 


(IY+13),L 

8FC9 

FD740E 

1110 

LD 


(IY+14),H 

8FCC 

El 

1120 

POP 


HL 

8FCD 

CI 

1 130 

POP 


BC 



1140;PONER LOZALIZACION DE IMAGE 0 EN DATOS DE MOVIM. DE SPKITE 



1 150 ; 



8FCE 

FD7507 

1 160 

LD 


(IY+7),L 

8FD1 

FD7408 

1 170 

LD 


(IY+8),H 

8FD4 

C9 

1 180 

1 190 

RET 





1200 

SUBRUTINA DE 

BORRADO 



12 10 




8FD5 

54 

1220CL LD 


D,H 

8FD6 

5D 

1230 

LD 


E, L 

8FD7 

13 

1240 

INC 


DE 

8FD8 

EDBO 

1250 

LDIR 



8FDA 

C9 

1260 

RET 




Ahora que hemos sacado nuestros datos en bruto del sprite sin expandir 
de la memoria y creado la imagen 0 con ellos, necesitamos generar las otras 
imàgenes. Cada imagen sucesiva se forma desplazando las filas de la anterior uno 
o mas bits hacia la derecha. La rutina SPREX hace esto tornando cada fila de 
imagen 0 por orden, copiandola dentro del àrea de ?f espacio de trabajo" y des- 
plazàndola y copiandola repetidamente en la posición apropiada para cada una 
de las otras imàgenes. Etiquetaremos el principio del espacio de trabajo corno 
WKSPC y observe que, puesto que sólo necesitamos colocar una fila de un sprite 
en él cada vez, habrà de sobra con 20 octetos. Por tanto, debe empezar su 
programa con una linea corno: 

WKSPC DEFS 20 


Observe que hay que llamar a SPREX con IY apuntando a los datos de 
movimiento de su sprite , puesto que pone el nùmero de imàgenes en (IY + 2). Los 
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valores de entrada de HL y BC estàn ya establecidos para usted al llamar a 
PADOUT, asi es que el ùnico paràmetro que tiene que establecer después de 
llamar a PADOUT es el paso (en pixels ) entre las imàgenes, almacenado en D. 
Por tanto, adjuntamos a nuestro fragmento anterior, para establecer los sprites 
del avión, las lineas : 

LD D,1 ; FORMA 8 IMAGENES 

CALL SPREX 


Tenga cuidado, ya que casi todos los registros alternativos se utilizan en la 
rutina; por tanto, si tiene intención de volver al BASIC después de utilizar 
SPREX asegurese de conservar HL ? con: 

EXX 

PUSH HL 
EXX 


y 

EXX 

POP HL 
EXX 


al principio y al final de su programa respectivamente. 




10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

RUTINA PARA FORMAR LAS IMAGENES M DESPLAZADAS" DE DATOS DE 
SPRITE EXPANDIDO COMO SE PRODUCE POR "PADOUT" 

ENTRADAS : HL=DIRECCION DE IMAGE 0 

D=PAS0 ENTRE IMAGENES 

B=ANCHURA DEL SPRITE EXPANDIDO 

C=PROFUNDIDAD DEL SPRITE EXPANDIDO EN FILAS 

SE CONSERVA : BC 

NOTA B’C’D'E’H’L 1 SON DESTRUIDOS ! 

SALIDA : DE 1 =VALOR DE ENTRADA DE DE,BC'=0,L'=0 

8F2 9 

3E08 

120 SPREX LD 

A,8 


8F2B 

1EFF 

130 

LD 

E, #FF 


8F2D 

92 

140 SUBDIV SUB 

D 


8F2E 

1C 

150 

INC 

E 


8F2F 

30FC 

160 

JR 

NC,SUBDIV 


8F3 1 

FD7302 

170 

LD 

(IY + 2 ) ,E 


8F34 

1 D 

180 

DEC 

E 


8F35 

D5 

190 

PUSH 

DE 


8F36 

C5 

200 

PUSH 

BC 


8F37 

0600 

2 1 0 
220 
230 
240 

LD 

BC AHORA CONTIENE 

B, 0 

LA LONGITUD DE 

1 COLUMNA EN BYTES 

8F39 

8F3C 

1 13 98f 

D9 

250 

260 

LD 

EXX 

DE,WKSPC 


8F3D 

El 

270 

POP 

HL 


8F3E 

DI 

280 POP 

290 ; 

300 ;H’=ANCHURA,L 1 =N0. 

DE 

DE FILAS 



136 






8F3F D5 
8f40 44 

8f41 D9 


8F42 E5 
8f43 11398F 


8f46 D9 
8f47 D9 
8f48 7E 
8f49 09 

8f4a 12 
8f4b 13 
8f4c D9 
8f4d 10F8 


8f4f D9 
8F50 EB 
8F51 D9 


8F52 D5 
8F53 4A 


8F54 7C 
8F55 D9 
8F56 21398F 

8F59 A7 
8F5A CB1E 
8F5C 2C 
8F5D 3D 
8F5E 20FA 


8F60 D9 
8f6 1 OD 
8F62 20F0 


8f64 D9 
8f65 EB 
8f66 11398F 

8F69 D9 


8f6A 44 
8F6B D9 
8f6C 1A 
8f6d 77 
8F6E 09 
8f6f 13 
8F70 D9 


;D'=PASO DE IMAGEN,E 1 =N0. DE IMAGENES-1 
; GENERAR UNA FILA DE CADA IMAGEN 

NXR0W9 PUSH DE 


ALMACENAR DIRECCION DE FILA 0 DE IMAGEN 0 

PUSH HL 

LD DE,WKSPC 

CONSTRUIR ESTÀ FILA DEL SPRITE EN EL ESPACIO DE TRABAJO 


NXBYT3 


A, ( HL ) 
HL, BC 
(DE),A 
DE 


DJNZ NXBYT3 

ALMACENAR DIREC. DE FILA ACTUAL DE SIGUIENTE IMAGEN EN DE 


DESPLAZAR FILA POR D' PIXELS 


UN PIXEL CADA VEZ 


LD HL,WKSPC 

AND A 

XBYT RR (HL) 

INC L 

DEC A 

JR NZ,NXBYT 

SIGUIENTE DESPLAZAMIENTO 


JR NZ,NXSHF 

RECUPERAR DIRECCION DE LA SIGUIENTE FILA DE IMAGEN EN HL 


DE, HL 
DE,WKSPC 


TRANSFERIR LA FILA DE H' COLUMNAS AL AREA DE IMAGEN 


NXBYT2 


A, ( DE ) 
(HL),A 
HL, BC 
DE 
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8F71 

1 0F8 

980 

990 ; 

DJNZ 


NXBYT2 



1000 ;BUCLE 

HACIA ATRAS PARA GENERAR MISMA FILA 

8F73 

DI 

1010 

POP 


DE 

8F74 

1 D 

1020 

DEC 


E 

8F75 

20D8 

1030 

JR 


NZ,NXPOS 

8f77 

D9 

1040 

1050 ; 

EXX 





106 0 ; BUSCAR 

SIGUIENTE 

FILA DE IMAGEN 0 



1070 ; 




8F78 

El 

1080 

POP 


HL 

8f79 

23 

1090 

1 100 ; 

INC 


HL 



1 1 1 0 ; RECUPERAR DE’ 

Y 

REPETIR PARA LA SIGUIENTE 



1 120 ; 




8F7A 

D9 

1 130 

EXX 



8F7B 

DI 

1 140 

POP 


DE 

8F7C 

2D 

1 150 

DEC 


L 

8F7D 

2 0C0 

1 160 

1 170 ; 

JR 


NZ,NXR0W9 



1180 ;VOLVER 

CON EL 

JUEGO DE REGISTROS CORRECTOS 



1 190 ; 




8F7F 

D9 

1200 

EXX 



8f80 

C9 

12 10 

RET 




Hasta aqui, muy bien. A estas alturas debe tener un conocimiento razonable 
de los principios implicados en està tècnica de animación de sprite, junto con 
dos rutinas que hacen casi todo el trabajo de preparación para una animación 
asi. El ùnico trabajo verdadero que ahora necesita realizar siempre que quiera 
definir un sprite es la inevitable tarea aburrida de disertar la forma y convertirla 
en los datos del sprite originai. Muchas personas piensan que los programas 
de "diseno de caracteres" son utiles y, por supuesto, hay un buen nùmero dispo¬ 
nile, incluyendo la versión limitada a un caràcter, de las cassettes de intro- 
ducción de "Horizontes" que se suministran con la màquina. 

Podria comprar uno de estos programas o, mejor aùn, escribir el suyo pro¬ 
pio. Personalmente, prefiero el mètodo mas tradicional de utilizar un làpiz, 
una goma de borrar, un montón de papel de gràfico y un buen suministro de 
café y de paciencia. 

Si toma cualquier fila de un caràcter y la divide en dos grupos de cuatro 
pixels cada uno, cada uno de ellos corresponderà a un digito en la represen- 
tación hexadecimal de està octeto-fila. Es entonces fàcil ver que los cuatro pixels 
seràn una de las sólo 16 estructuras posibles y con un poco de pràctica en- 
contrarà muy sencillo adjuntar el digito correcto a cualquier estructura dada. 
Los màs obvios son probablemente: 


0 


y f 


seguido de cerca por las estructuras de un bit: 
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A continuación tenemos las estructuras de dos bits consecutivos: 



3 6 C 


y las que sólo tienen un bit puesto a cero: 


E D B 7 

Hay dos estructuras posibles con pixels alternados y puestos a uno y a cero. 
Distingalas recordando que 5 es impar y, por tanto, tiene puesto a uno el bit -pixel 
de mas a la derecha: 



5 A 


y sólo queda por ver la estructura 9, inconfundiblemente simétrica. 



9 


Si aun no està muy familiarizado con las estructuras, espero que la división 
en categorias anterior le proporcionarà una ayuda util. 


Ahora proporcionaré la autèntica rutina de "impresión" del sprite, que asi- 
mila la información correcta para cada uno de ellos y la envia al buffer para el 
procesador de impresión. 

Se ha escrito SPRINT tornando velocidad y versatilidad corno màximas 
prioridades. Si movemos sprìtes una vez en cada cuadro de TV, y ademàs, quizà, 
generamos un sonido y un horizonte de pantalla de nivel bajo, entonces el 
riempo es la esencia, y este factor debe tener prioridad por encima del grado de 
optimización de espacio del programa. Normalmente no se llamarà a SPRINT 
directamente, ya que sera subsidiaria de una rutina mas generai llamada SPRMV, 
que realizarà varias operaciones con los datos de movimiento antes de saltar 
a SPRINT. 

SPRINT nos permite verificar la OR-impresión utilizando el sistema de 
OR-mapa descrito al final del capitulo anterior. Una versión ligeramente modi- 
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ficada de ORCHK ha sido construida dentro de SPRINT para efectos de velo- 

cidad y la opción de verificación de OR-impresión es seleccionada poniendo 
a uno el bit 7 del octeto de atributos del sprite almacenado en (IY + 15). 

Poner a cero este bit tiene corno efecto que se ignore el OR-mapa, y en 
este caso siempre ocurrirà una OVER-impresión. El estado de està bandera pro¬ 
voca una bifurcación en la rutina a secciones distintas, incluyendo una de ellas 
ORCHK y la otra no. Se ha visto que este mètodo es mucho mas ràpido que 
ejecutar una rutina combinada que implique verificaciones repetidas de las ban- 

deras y saltos. 

Observe que la rutina llama a ATTLOC, cuyo listado està en el capitulo 1, 

y se utiliza para proporcionar la dirección de los atributos de la esquina superior 

izquierda del sprite. 

Puesto que la rutina destruye los contenidos de todos los registros alterna- 

tivos, debe una vez màs conservar HL’ si desea volver al BASIC, SPRINT 
presupone que realmente hay sitio para su sprite en el buffer impresión, y corno 
tal no debe llamarse si esto no filerà cierto, en cuyo caso deberà esperar una 
interrupción para borrar el buffer. Observarà que la sección implicada en el 
envio de los datos al buffer utiliza instrucciones de incremento de registro simple 

para atravesarlo. Si ha extendido el buffer hasta màs de 42 entradas de longitud, 

corno se describió en el capitulo 9, necesitarà cambiar las instrucciones por in- 

crementos de registro doble, o sea, cambiar INC L por INC HL. Recuerde que 
la variable de un bit CHSTRE contiene el nùmero de entradas utilizadas en 

el buffer y que BUFFPT apunta a la siguiente entrada libre. Ambos son 

ajustados convenientemente por la rutina. 

No es deseable recibir una interrupción cuando sólo se ha enviado medio 

sprite al buffer. Por tanto, a menos que esté utilizando el interceptor de interrup- 
ciones para algo diferente del procesador de impresión, debe desactivar las inte- 
rrupciones antes de llamar a SPRINT, y activarlas a la vuelta. 

SPRINT se ocuparà admirablemente de los sprites que se salgan fuera de la 
pantalla o incluso aquellos que ni siquiera se encuentren en ella. Por ejemplo, 

podemos tener sólo la columna de la derecha de un sprite 3 X 3 en la pantalla 
enviando a SPRINT el valor: 

XC = - 2, o FE Hex. 

Tal corno està la rutina, cualquier parte del sprite que esté en el àrea del 

texto se imprimirà. Sin embargo, podemos, si asi lo deseamos, variar la anchura de 
està "ventana de sprite'\ cambiando los operandos de las instrucciones etique- 

tadas LFTLM1, LFTLM2, RGTLM1 y RGTLM2, donde LFTLM significa "Li¬ 

mite izquierdo" (LeFT LiMit) y RGTLM "Limite derecho" (RiGhT LiMit). El 
limite izquierdo es el valor de la columna de màs a la izquierda de la ventana 
de sprites , mientras que el limite derecho es el valor de la columna que se encuentra 
inmediatamente a la derecha de la ventana (32 en el caso de una ventana 

màxima). 

Por ejemplo, supongamos que queremos que la ventana de sprites esté en las 
20 columnas centrales de la pantalla (podemos estar empleando las màs externas 
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para el tanteo). Entonces el limite izquierdo sera la columna 6, y el derecho la 
columna 6 + 20 = 26. Asi que utilizamo s: 

LD A, 6 
LD ( LFTLM1 + 1) , A 

LD ( LFTLM2 +1),A 

LD A,26 

LD ( RGTLM1 + 1 ) , A 

LU ( RGTLM2 + 1 ) , A 


Y esto es todo cuanto hay que decir referente a este formidable listado, 
asi es que le dejaré que lo lea y lo introduzea en màquina: 




10 

ESTÀ RUTINA ENVIA DATOS DE SPRITE AL BUFFER 

DE IMPRESION 



20 

ENTRADA:B=XP,C=YP,D=YC,E=XC 





30 

HL = DIRECCION DE IMAGEN 0 





40 

TODO COMO SE DEFINIO POR SPRMV 





50 

SALIDA : DE = 0 





60 

DESTRUIDOS : A’F’B’C’D’E’H’L’ 





70 




A06B 

D5 

80 SPRINT PUSH DE 





90 






100 

SI XP=0, DEJAR HL SENALANDO A IMAGEN 0 





1 10 




A06C 

78 

120 

LD A, B 



A06D 

A7 

130 

AND A 



A06e 

2809 

140 

JR Z.POSO 





150 






160 

BUSCAR IMAGEN CORRECTA 





170 




A070 

FD5E0D 

180 

LD E,(IY+13) 



A073 

FD560E 

190 

LD D,(IY+14) 



A07 6 

19 

200 NXA ADD HL,DE 



A077 

1 OFD 

2 1 0 

DJNZ NXA 





220 






230 

BUSCAR POSICION VERTICAL CORRECTA 





240 




A079 

09 

25 0 POSO ADD HL,BC 





260 






270 

BUSCAR LOCALIZACION DEL ATRI. SUPERIOR 

IZQ. 

DEL SPRITE 



280 




A07A 

CI 

290 

POP BC 



A07B 

E5 

300 

PUSH HL 



A07C 

CD7CA0 

310 

CALL ATTLOC 





320 






330 

E CUENTA LAS COLUMNAS RESTANTES 





340 




A07F 

FD5E0B 

350 

LD E,(IY+11) 





360 






370 

DECIDIR ENTRE MODOS OR U OVER PRINT EXAMINANDO 



380 

EL BIT 7 DE LOS ATRI. DEL SPRITE 





390 




A082 

D9 

400 

EXX 



A083 

FD6E0F 

410 

LD L,(IY+15) 



A086 

FD6 6 1 0 

420 

LD H,(IY+16) 



A089 

CB7D 

430 

BIT 7,L 



A08B 

CBBD 

440 

RES 7,L 



A08D 

D9 

450 

EXX 



A08E 

CA45A1 

460 

JP Z,SPRTNO 





470 






480 

SE SELECCIONA OR PRINT,BUSCAR DIRECCION 

APROPIADA 



490 

EN OR-MAP 





500 




A09 1 

78 

510 

LD A, B 
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A092 
A093 
A094 
A095 
A096 
AO 9 8 
A09 A 
A09C 


A09D 

A09E 

A09F 

AOAO 

A0A2 

A0A5 

AOA6 

AOA9 

AOAA 


AO AB 
AO AC 
AOAE 
AOAF 
AOB 1 
AOB3 
A0B4 


AOB6 

AOB7 

AOB8 

AOB9 


AOBA 

AOBB 


AOBC 

AOBD 

AOBE 


AOBF 


A0C2 

A0C4 

AOC6 

AOC8 


AOCA 


87 

520 

ADD 

A, A 

87 

530 

ADD 

A, A 

47 

540 

LD 

B, A 

79 

550 

LD 

A,C 

CB2F 

560 

SRA 

A 

CB2F 

570 

SRA 

A 

CB2F 

580 

SRA 

A 

80 

590 

ADD 

A, B 


600 ; 




6 1 0 ;SUMAR 

DIRECCION 

BASE DE OR-MAP 


620 ; 



D9 

630 

EXX 


EB 

640 

EX 

DE, HL 

4f 

650 

LD 

C, A 

0600 

660 

LD 

B, 0 

21A2A0 

670 

LD 

HL,ORMAP 

09 

680 

ADD 

HL, BC 

3AA6AO 

690 

LD 

A, (CHSTRE ) 

47 

700 

LD 

B, A 

D9 

710 

EXX 



720 ; 




730;HL’ CONTIENE LOCALIZACION EN OR-MAP. ROTAR MASCARA 


740 ;EL BIT 

-CELDILLA 

CORRECTO EN OR-MAP 


750 ; 



79 

760 

LD 

A,C 

E607 

770 

AND 

7 

47 

780 

LD 

B, A 

3E80 

790 

LD 

A,#80 

2803 

800 

JR 

Z, NROT 1 

OF 

810 NXTRT 

RRCA 


10FD 

820 

DJNZ 

NXTRT 


830 ; 




840 ; ALMACENAR MASCARA EN C' 


850 ; 



D9 

860 NR0T1 

EXX 


4f 

870 

LD 

C, A 

D9 

880 

EXX 


79 

890 

LD 

A,C 


900 ; 




910;BC SENALA LOS 

DATOS DE IMAGEN 


920 ; 



CI 

930 

POP 

BC 

E5 

940NXTX1 

PUSH 

HL 


950 ; 




960 ;ALMACENAR DIRECCION DE OR-MAP 


970 ; 



D9 

980 

EXX 


E5 

990 

PUSH 

HL 

D9 

1000 

EXX 



1010 ; 




102 0 ;HACER 

D=PROFUNDIDAD EN LINEAS 


1030 ; 



FD560C 

1040 

LD 

D,(IY+12) 


1050 ; 




1060 ; SI LA 

POSICION 

DE IMPRESION ESTÀ FUERA DE RANGO-X 


1070 ; SALTAR 

COLUMNA 


FE20 

1080RGTLM1 

CP 

32 

3071 

1090 

JR 

NC,HOPCL1 

FEOO 

1100 LFTLM1 

CP 

0 

386D 

1110 

JR 

C,HOPCL1 


1 120 ; 




1 130 ;ALMACENAR POSIC 

. DE COLUMNA EN A’ 


1 1 40 ; 



08 

1150 

EX 

AF,AF' 


1 1 60 ; 




1 17 0 ; SI POSC. DE IMPRESION ESTÀ DEBAJO DEL AREA DE TEXTO, 
1 180 ;ENTONCES FINAL 
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AOCB 

7C 

1 190NXTY1 

LD 

A, H 

AOCC 

FE5B 

1200 

CP 

91 

AOCE 

3068 

12 10 

JR 

NC,0UT81 



1220 ; 





123 0 ; SI POSIC. DE 

IMPRESION ESTÀ ENCIMA DEL AREA DE TEXTO 



1240 ; IGNORAR 

ESTÀ 

LINEA DE SPRITE 



1250 ; 



AODO 

FE58 

1260 

CP 

88 

AOD2 

D5 

1270 

PUSH 

DE 

A0D3 

EB 

1280 

EX 

DE, HL 

A0D4 

382F 

1290 

JR 

C, NPR 1 



1300 ; 





1310 ; DECIDIR 

SI OR-PRINT ES NECESARIO EN ESTÀ CELDILLA 



1320 ; 



AOD6 

D9 

1330 

EXX 


A0D7 

79 

1340 

LD 

A, C 

A0D8 

A6 

1350 

AND 

(HL) 

AOD9 

CBBB 

1360 

RES 

7,E 

AODB 

2802 

1370 

JR 

Z,N0T0R3 



1380 ; 





13 90; SI LA CELDILLA ESTÀ OCUPADA PONER BANDERA PARA OR-PRINT 



1400 ; 



AODD 

CBFB 

1410 

SET 

7,E 



1420 ; 





143 0 ; INDICAR 

CELDILLA OCUPADA 



1440 ; 



AODF 

79 

1 450 N0T0R3 

LD 

A, C 

AOEO 

b6 

1460 

OR 

(HL) 

AOE 1 

77 

1470 

LD 

(HL),A 

AOE2 

D9 

1480 

EXX 




1490 ; 





1500 ;ENVIAR 

CARACTER AL BUFFER 



1510 ; 



A0E3 

1A 

1520 

LD 

A, (DE) 

A0E4 

D9 

1530 

EXX 


A0E5 

AB 

1540 

XOR 

E 

AOE6 

A2 

1550 

AND 

D 

A0E7 

AB 

1560 

XOR 

E 

A0E8 

04 

1570 

INC 

B 

AOE9 

D9 

1580 

EXX 


AOEA 

2AEAA0 

1590 

LD 

HL,(BUFFPT) 

AOED 

07 

1600 

RLCA 


AOEE 

77 

1610 

LD 

(HL),A 

AOEF 

2C 

1620 

INC 

L 

AOF 0 

73 

1630 

LD 

(HL),E 

AOF 1 

2C 

1640 

INC 

L 

AOF2 

72 

1650 

LD 

(HL),D 

A0F3 

2C 

16 60 

INC 

L 

A0F4 

7A 

1670 

LD 

A, D 

A0F5 

E603 

1680 

AND 

3 

A0F7 

07 

1690 

RLCA 


A0F8 

07 

1700 

RLCA 


AOF 9 

07 

1710 

RLCA 


AOF A 

F640 

1720 

OR 

64 

AOFC 

77 

1730 

LD 

(HL),A 

AOFD 

2C 

1740 

INC 

L 

AOFE 

71 

1750 

LD 

(HL),C 

AOFF 

2C 

1760 

INC 

L 

AOOO 

70 

1770 

LD 

(HL),B 

AOO 1 

2C 

1780 

INC 

L 

A002 

22EAA0 

1790 

LD 

(BUFFPT),HL 



1800 ; 





1810 ; INCREMENTAR 

PUNTERÒ DE DATOS A SIGUIENTE CELDILLA DE IMAGEN 



1820 ; 



A005 

210800 

1830NPR1 

LD 

HL, 8 

A008 

09 

1840 

ADD 

HL, BC 


143 









A 1 0 9 

44 

1850 


LD 

B, H 


Al OA 

4d 

1860 


LD 

C, L 


A 1 OB 

EB 

1870 


EX 

DE, HL 


A 1 OC 

DI 

1880 

1890 


POP 

DE 




1900 

SI CONTADOR 

DE LINEA ES CERO ENTONCES SIGUIENTE COLUMNA 



1910 





A 1 OD 

15 

1 920 


DEC 

D 


Al OE 

2810 

1930 

1940 


JR 

Z, INI 6 




1950 

SI NO 

MOVEE 

PUNTERÒ OR-MAP A SIGUIENTE LINEA 



I960 





Al IO 

D9 

1970 


EXX 



Al 1 1 

7D 

1980 


LD 

A, L 


Al 12 

C604 

1990 


ADD 

A,4 


Al 14 

6f 

2000 


LD 

L, A 


Al 15 

D9 

2010 

2020 


EXX 





2030 

Y MOVER PUNTERÒ DE ATRI. A SIGUIENTE LINEA 




2040 





Al 1 6 

7D 

2050 


LD 

A, L 


Al 17 

C620 

2060 


ADD 

A,32 


Al 1 9 

6f 

2070 


LD 

L, A 


Al 1 A 

30AF 

2080 


JR 

NC,NXTY1 


A11C 

24 

2090 


INC 

H 




2100 

2 110 

2 120 

BUCLE 

ATRAS 

PARA SIGUIENTE LINEA DE SPRITE 


Al 1D 

C3CBA0 

2 130 
2140 


JP 

NXTY 1 




2 150 

INCREMENTAR 

POSICION DE COLUMNA 




2 160 





A 1 2 0 

08 

2170 IN 16 

EX 

AF,AF’ 


A 1 2 1 

3C 

2180 

2 190 


INC 

A 




2200 

COGER 

DIRECCION DE OR-MAP Y LLEVAR LA MASCARA 

A EL 



22 1 0 

INCREMENTANDO EL PUNTERÒ SI ES PRECISO 




2220 





A 1 2 2 

D9 

2230 


EXX 



A 1 2 3 

E 1 

2240 


POP 

HL 


A 1 2 4 

CB09 

2250 


RRC 

C 


A 1 2 6 

3001 

2260 


JR 

NC,NINC2 


A 1 2 8 

2C 

2270 


INC 

L 


A 1 2 9 

D9 

22 80NINC2 

EXX 





2290 







2300 

HL SENALA AL PRIMER ATRIBUTO DE LA SIGUIENTE 

COLUMNA 



2310 





A 1 2 A 

E 1 

2320 


POP 

HL 


A 1 2 B 

2C 

2330 

2340 


INC 

L 




2350 

2360 

BUCLE 

HACIA 

ATRAS PARA SIGUIENTE COLUMNA 


A 1 2C 

1 D 

2370 


DEC 

E 


A 1 2 D 

C2BBA0 

2380 

2390 


JP 

NZ,NXTX1 




2400 
241 0 

PONER 

NUEVO 

VALOR DE CHSTRE 


A 1 3 0 

D9 

2420 


EXX 



A 1 3 1 

78 

2430 


LD 

A, B 


A 1 32 

32A6A0 

2440 


LD 

(CHSTRE) , A 


A 1 3 5 

D9 

2450 


EXX 



A 1 3 6 

C9 

2460 

2470 


RET 





2480 

2490 

SALTA 

HASTA 

AQUI PARA OMITIR TODA 0 PARTE DE 

UNA COLUMNA 

A 1 3 7 

08 

25 00 HOPCL1 

EX 

AF,AF’ 




2510 
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2990 





3000 

SI POSO. IMPR. SOBRE AREA DE TEXTO ENTONCES IGNORAR LA 



3010 

3020 

LINEA DE SPRITE 


A15F 

FE58 

3030 

CP 

88 

Al 6 1 

D5 

3040 

PUSH 

DE 

A1 62 

EB 

3050 

EX 

DE, HL 

A1 63 

3822 

3060 

3070 

JR 

C,NPR2 



3080 

3090 

ENVIAR CARACTER 

AL BUFFER 

Al 65 

1A 

3100 

LD 

A,(DE) 

A1 66 

D9 

3110 

EXX 


Al 67 

AD 

3120 

XOR 

L 

A1 68 

A4 

3130 

AND 

H 

Al 69 

AD 

3140 

XOR 

L 

A16A 

1C 

3150 

INC 

E 

Al 6B 

D9 

3 160 

EXX 


Al 6C 

2AEAA0 

3170 

LD 

HL,(BUFFPT) 

Al 6F 

07 

3180 

RLCA 
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A 1 7 0 

77 

3190 


LD 

(HL),A 

A 1 7 1 

2C 

3200 


INC 

L 

A 1 72 

73 

3210 


LD 

(HL),E 

A 1 73 

2C 

3220 


INC 

L 

A 1 74 

72 

3230 


LD 

(HL),D 

A 1 75 

2C 

3240 


INC 

L 

A 1 7 6 

7A 

3250 


LD 

A, D 

A 1 77 

E603 

3260 


AND 

3 

A 1 7 9 

07 

3270 


RLCA 


A 1 7 A 

07 

3280 


RLCA 


A17B 

07 

3290 


RLCA 


A 1 7C 

F640 

3300 


OR 

64 

A 1 7E 

77 

3310 


LD 

(HL),A 

A 1 7F 

2C 

3320 


INC 

L 

A 1 8 0 

71 

3330 


LD 

(HL),C 

A 1 8 1 

2C 

3340 


INC 

L 

A 1 82 

70 

3350 


LD 

(HL),B 

A 1 83 

2C 

3360 


INC 

L 

A 1 84 

22EAA0 

3370 

3380 


LD 

(BUFFPT),HL 



3390 

INCREMENTAR 

PUNTERÒ DE DATOS A SIGUIENTE CELDILLA DE IMAGEN 



3400 




A 1 87 

210800 

3410NPR2 

LD 

HL, 8 

A 1 8 A 

09 

3420 


ADD 

HL, BC 

A 1 8B 

44 

3430 


LD 

B, H 

A 1 8C 

4d 

3440 


LD 

C, L 

A 1 8D 

EB 

3450 


EX 

DE, HL 

A 1 8E 

DI 

3460 


POP 

DE 



3470 






3480 

SI CONTADOR 

DE LINEA ES CERO, SIGUIENTE COLUMNA 



3490 




A 1 8F 

15 

3500 


DEC 

D 

Al 90 

280A 

3510 

3520 


JR 

Z, IN 17 



3530 

3540 

SI NO 

MOVER 

! PUNTERÒ DE ATRI. A SIGUIENTE LINEA 

Al 92 

7D 

3550 


LD 

A, L 

A 1 93 

C620 

3560 


ADD 

A,32 

A 1 95 

6F 

3570 


LD 

L, A 

Al 96 

30C2 

3580 


JR 

NC,NXTY2 

Al 98 

24 

3590 

3600 


INC 

H 



3610 

3620 

BUCLE 

HACIA 

ATRAS PARA LA SIGUIENTE LINEA DE SPRITE 

A 1 9 9 

C35AA1 

3630 

3640 


JP 

NXTY2 



3650 

INCREMENTAR 

POSICION DE COLUMNA 



3660 




Al 9C 

08 

3670IN17 

EX 

AF,AF’ 

A 1 9D 

3C 

3680 

3690 


INC 

A 



3700 

HL SENALA AL 

, PRIMER ATRI. DE LA SIGUIENTE COLUMNA 



3710 




Al 9E 

E 1 

3720 


POP 

HL 

A 1 9F 

2C 

3730 

3740 


INC 

L 



3750 

3760 

BUCLE 

HACIA 

ATRAS PARA LA SIGUIENTE COLUMNA 

Al A0 

1 D 

3770 


DEC 

E 

Al Al 

C24DA1 

3780 


JP 

NZ,NXTX2 

Al A4 

D9 

3790 


EXX 


Al A5 

7B 

3800 


LD 

A,E 

Al A6 

32A6A0 

3810 


LD 

(CHSTRE ) , A 

Al A9 

D9 

3820 


EXX 


Al AA 

C9 

3830 


RET 




3840 

3850 

SALTAR 

AQUI 

PARA OMITIR TODA 0 PARTE DE LA COLUMNA 
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Al AB 

08 

3860HOPCL2 
3870 ; 

3880 ;MOVER 
3890 ; 

EX AF,AF ' 

PUNTERÒ DE IMAGEN A LA SIGUIENTE COLUMNA DE SPRITE 

Al AC 

60 

39000UT82 

LD 

H, B 

Al AD 

69 

3910 

LD 

L, C 

Al AE 

010800 

3920 

LD 

BC, 8 

A 1 B 1 

09 

3930NXT82 

ADD 

HL , BC 

A1B2 

15 

3940 

DEC 

D 

A1B3 

2 0FC 

3950 

JR 

NZ,NXT82 

A1B5 

44 

3960 

LD 

B, H 

A 1 B 6 

4d 

3970 

3980 ; 

39 90 ; SALTO 
4000 ; 

LD 

HACIA 

C, L 

ATRAS A LA RUTINA PRINCIPAL 

A1B7 

18E3 

4010 

JR 

IN 1 7 


Ahora tenemos las tres rutinas necesarias para preparar los datos y para 
imprimir realmente nuestros sprites en la pantalla. Para completar la serie de 
rutinas de generación de sprite le proporcionaré una rutina maestra de control 
de sprites. La función de SPRMV sera actualizar los valores de XP, XC, YP e YC 
segun VX y VY (todos almacenados en los datos de movimiento, indexados 
por el registro IY), a continuación definir los paràmetros correctos en los re- 
gistros y saltar a hacer una impresión SPRINT del sprite. El ùnico paràmetro 
que necesita SPRMV es la dirección de los datos de movimiento, en IY. Y una 
vez que se ha llamado a SPRMV, no se necesita mas trabajo para mover e imprimir 
su sprite. 

Antes de explicarle còrno inicializar y manipular los datos de movimiento, 
le presentaré el listado de SPRMV: 




10 






20 

CONTROLADOR DE SPRITE DE PROPOSITO GENERAL 




30 






40 

ENTRADA:IY APUNTA A LOS DATOS DE MOVIMIENTO, 

PARA MAS DETAL 



LES 





50 

MIRAR TEXTO 





60 

NOTA: B’C’D’E’H’ 

L'A’F 1 DESTRUIDOS 




70 

NOTA : IY SE CONSERVA 




80 






90 






100 

DECREMENTAR CONTADOR DE CICLO 




1 10 




8D3D 

FD3509 

120 SPRMV DEC 

(IY+9) 


8d40 

CO 

130 

RET 

NZ 




140 






150 

SI CERO ENTONCES 

VOLVER A LLENAR EL CONTADOR 

DE CICLO 



160 




8d4 1 

FD7E0A 

170 

LD 

A,(IY+10) 


8d44 

FD7709 

180 

LD 

(IY+9),A 




190 






200 

HACER HL = DIRECCION DE IMAGEN 0 




2 1 0 




8d47 

FD6608 

220 

LD 

H,(IY+8) 


8d4a 

FD6E07 

230 

LD 

L,(IY+7) 




240 






250 

SUMAR PASO A XP 





260 




8d4d 

FD7E00 

270 

LD 

A,(IY+0) 


8D50 

FD8601 

280 

ADD 

A,(IY+1) 


8D53 

F2628D 

290 

JP 

P, NNEG1 




300 ; 
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690 ; 

700 ;SUMAR PASO A YP 
710 ; 


8D80 

FD7E04 

720 

LD 

A,(IY+4) 

8d83 

FD8605 

730 

ADD 

A,(IY+5) 

8d86 

F2958D 

740 

JP 

P,NNEG2 



750 





760 

SI RESULTADO 

NEGATIVO HACER 



770 



8d89 

E607 

780 

AND 

7 

8d8b 

4f 

790 

LD 

C, A 



800 





810 

E INCREMENTAR 

YC 



820 



8d8c 

FD3406 

830 

INC 

(IY+6) 

8d8f 

FD5606 

840 

LD 

D,(IY+6) 

8D92 

C3A28D 

850 

JP 

YDN 



860 





870 

SI YP>7 HACER 

YP=YP-8 



880 

Y DECREMENTAR 

YC 



890 



8D95 

FE08 

900NNEG2 CP 

8 

8D97 

FD5606 

910 

LD 

D,(IY+6) 

8D9A 

4f 

920 

LD 

C, A 

8D9B 

3805 

930 

JR 

C, YDN 

8D9D 

E607 

940 

AND 

7 

8D9F 

FD3506 

950 

DEC 

(IY+6) 

8DA2 

FD7704 

960YDN LD 

(IY+4),A 


970 ; 
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980 ; SALTO A LA RUTINA DE IMPRESICI DEL SPRITE 
990 ; 

8DA5 C3A58D 1000 JP SPRINT 

Con referencia a la tabla de contenidos de datos de movimiento encontrada 
anteriormente en este capitulo, recordaremos que siete octetos de los diecisiete 
asignados a cada sprìte seràn inicializados por las rutinas PADOUT y SPREX. 

Por tanto, sólo necesitamos reservar espacio para ellos con DEFB 0 en el 
listado en ensamblador. Las variables que tenemos que inicializar nosotros 
mismos incluyen los valores de posición obvios XP, XC, YP e YC. Recuerde que 
XP se mide hacia la derecha e YP hacia arriba desde la esquina inferior izquierda 
del sprìte mientras que XC se mide hacia la derecha e YC hacia abajo de la esquina 
superior izquierda de la pantalla. Recuerde también que (XC,YC) son las coor- 
denadas de la esquina superior izquierda del sprìte . 

Las velocidades de VX y VY se miden en las mismas direcciones que XP 
e YP, y pueden ser mayores, iguales o menores que cero. Si VX > 0, el mo¬ 
vimiento es hacia la derecha, mientras que si VX < 0, es hacia la izquierda. 
De la misma manera, VY > 0 significa un movimiento arriba, mientras que 
VY < 0 envia el sprìte hacia abajo. Este orden permite una gran versatilidad en 
la dirección del movimiento. Por ejemplo, podriamos hacer que un sprìte hiciera 
un suave "picado" con una velocidad horizontal de tres pixels y una velocidad 
vertical de un pixel por movimiento, haciendo: 

VX = # 3 VY = #FF (menos uno) 

Como he explicado antes, la "cuenta de eidos” se proporciona corno un medio 
de regular la frecuencia con la que los sprìtes se mueven, y también si dos o mas 
sprìtes se mueven en fase entre si. 

Todo esto se muestra mejor con un ejemplo. Suponga que tenemos dos 
sprìtes , con datos de movimiento en las etiquetas MDAT1 y MDAT2 y quere- 
mos que un sprìte se mueva cada cinco cuadros de TV y que el segundo se 
mueva una vez en cada tres cuadros. Establecemos los respectivos "periodos 
de ciclo” corno los valores cinco y tres y, corno siempre, inicializamos las 
"cuentas de ciclo" a uno, para que ambos sprìtes puedan moverse a la primera 
llamada de SPRMV. Todo cuanto tenemos que hacer es: 

LD IY,MDAT1 

CALL SPRMV 
LD IY,MDAT2 

CALL SPRMV 

después de cada interrupción. 

Si tenemos dos sprìtes moviéndose con la misma frecuencia, y deseamos 
mantenerlos "desfasados", quizà porque no hay bastante espacio en el buffer de 
impresión para animar a ambos en el mismo cuadro de TV, utilizamos iniciali- 
zaciones diferentes de la cuenta de eidos. Por ejemplo, suponga que se dan 
periodos de ciclo de dos llamadas a ambos sprìtes. 

Entonces hacemos que se muevan en cuadros de TV alternos poniendo la 
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primera cuenta de ciclo a uno y la segunda al valor dos. Ocurra lo que ocurra, 
el periodo de ciclo y la cuenta de ciclo siempre tienen que ser distintos de cero. 
Si esto no fuera asi, se obtendria corno resultado una frecuencia de movimiento 
de una vez cada 256 llamadas a SPRMV. 

Utilizando los conceptos de cuenta de eidos y periodos de eidos, podemos 
animar todos los sprites implicados en un programa en un bloque. Si colocamos 
todos los datos de su movimiento consecutivamente en la memoria, un fragmento 
adecuado para después de cada interrupción (detectado por una instrucción 
HALT) podria ser el siguiente: 

MDAT EQU (DIRECCIÓN DE DATOS DE MOVIMIENTO) 

LD IY,MDAT 

LD B,(NUMERO DE SPRITES) 

NXSPRT PUSH BC 

CALL SPRMV 

POP BC 

LD DE,17 

ADD IY,DE 

DJNZ NXSPRT 

Refìriéndonos de nuevo a la tabla anterior de los contenidos de datos de 
movimiento, observarà que la dirección del primer octeto de la imagen 0 (inme- 
diatamente después de la columna de blancos precedentes) se almacena en (IY + 7). 
Este valor también se devuelve en HL después de la llamada PADOUT para 
establecer los datos del spirite. 

Podemos utilizar està entrada en los datos de movimiento corno un medio 
para cambiar o reciclar entre diferentes juegos de imàgenes para cualquier sprite 
individuai. Por ejemplo, puede desear hacer que su caràcter "camine" en vez de 
deslizarse, o quizà que su nave espacial se desintegre gradualmente durante el 
vuelo, después de haber sido alcanzada por un disparo de làser enemigo. 

Para llevar a cabo està función, establezca todas las diferentes series de datos 
de sprite que necesite, almacenando los valores devueltos por PADOUT en 
su propia tabla de consulta. Se debe mantener IY apuntando a una serie de 
datos de movimiento, que luego sera obviamente establecida con la ùltima serie 
de los datos del sprite generado. 

Entonces, cuando està ejecutando su programa, utiliza una "cuenta de ani- 
mación" y un "periodo de animación" anàlogos al sistema "cuenta de ciclo" 
y "periodo de ciclo" para desplazarse por su juego de imàgenes recuperando la 
dirección apropiada de su tabla de consulta e insertàndola en (IY + 7) cada vez 
que desea cambiar los datos. 

Hay varias otras manipulaciones de los datos de movimiento que podria 
probar: por ejemplo, podria hacer que el sprite se mueva en una estructura pre- 
programada recorriendo una tabla de valores para VX y VY, o podria hacer 
que el sprite hiciera de "camaleón" manipulando el octeto de atributos de (IY +15) 
(jrecuerde que hay que conservar el bit 7, la bandera de OR-impresión!). Dejo 
màs variaciones sobre este tema a su imaginación, y empezaré el desarrollo de 
una rutina de demostración. 

Después de pensarlo mucho, he preferido mostrarle còrno mover dos sprites 
en dirección opuesta a lo largo de la linea horizontal centrai de la pantalla. 
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Un sprìte sera un naipe especial, el seis de tréboles, conocido tradicionalmente 
corno "carta de Gordon", mientras que el otro, para variar, sera un telèfono rojo. 

Seria una làstima que no se utilizase la animación mas fina posible, asf es 
que moveremos ambos sprites por un pixel en cada cuadro de TV. Ahora bien, 
en el buffer de impresión pueden caber 40 caracteres, asi es que utilizaremos 
20 en cada sprìte. Sabemos que 5x4 = 20; por tanto, podemos utilizar una 
forma de celdilla de 3 x 4 para el naipe y una forma de celdilla de 4 x 3 para 
el telèfono. 

Recuerde la fòrmula para el àrea de imagen para imàgenes de una forma 
(m x n), o sea: 

Memoria que se necesita = 8(a(m + 1) + l)(n + 1) octetos 
Para el telèfono, m = 4, n = 3, a = 8y 

Memoria que se necesita = 8(8(4 + 1) + 1)(3 + 1) = 1.312 octetos 
Para el naipe, m = 3, n=4, a = 8 y 

Memoria que se necesita = 8(8(3 + 1) + 1)(4 + 1) = 1.320 octetos 

Sin olvidar los 8 octetos con ceros al final de la imagen combinada, reser- 
vamos espacio con: 

TELSPC DEFS 1312 

CAHSPC DEFS 1320 

DEFW 0,0,0,0 

La velocidad horizontal sera VX = 1, el valor màximo de XP sera XP m à x = 7, 
y la distancia entre dos imàgenes sucesivas serà D = 1 pixel. Por tanto, la anchura 
del margen de seguridad a la derecha de nuestro sprìte serà: 

P x = D(VX + XPmàx) —8 
= 1(1 + 7) - 8 
= 0 pixels 

jes decir, que podemos disertar nuestras formas en las 3 ó 4 columnas enteras! 
Como los sprites no se moveràn verticalmente, no se necesitarà ningun margen 
de seguridad superior. El telèfono y el naipe han sido disenados en toda el 
àrea permitida, y he codificado los datos para usted, cuyos resultados se encuen- 
tran tras las etiquetas TELDAT y CARDAT respectivamente. Repasando en su 
mente el procedimiento para el empieo de PADOUT y SPREX, verà que podemos 
generar las imàgenes de nuestro telèfono con el fragmento: 


LD 

HL,TELSPC 

; AREA DE IMAGEN 

LD 

DE,TELDAT 

;DATOS DE SPRÌTE 

LD 

BC,#403 

;B=ANCHURA, C=ALTURA 

LD 

IY,TELMTN 

;DATOS MOVIMIENTO 

CALL 

PADOUT 


LD 

D, 1 

; PASO ENTRE IMÀGENES 

CALL 

SPREX 

; DE UN PIXEL 


Un fragmento similar generarà las imàgenes del naipe, en donde TELMTN 
y CARMTN son las direcciones de comienzo de las tablas de datos de movi- 
miento del telèfono y del naipe, respectivamente. 
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Inicializaremos la posición del telèfono justo en el limite izquierdo de la 
pantalla y la base del telèfono en la linea once. Por tanto, la esquina superior 
izquierda del sprite està en (—4, 9) y la forma està en la esquina inferior izquierda 
del sprite , es decir: 

XP = 0, XC = #FC, YP = 0, YC = 9 

Moveremos los sprites una vez en cada cuadro de TV, asi que hay que poner 
la cuenta de ciclo y el periodo de ciclo a uno. He elegido utilizar OR-impresión 
en està demostración, para que los dos sprites se fundan al cruzarse. El telè¬ 
fono serà rojo (valor 2) y enmascararemos el papel del atributo actual (es decir, 
PAPER 8); por tanto, tenemos el octeto de atributo #82 y el de màscara #38. 
Insertando ceros en los huecos en nuestra tabla, que seràn rellenados por 
PADOUT y SPREX, tenemos los datos de movimiento iniciales: 

TELMTN DEFB 0 , 1, 0 , #FC, 0 , 0 ,9, 0 , 0 ,1, 1, 

0,0,0,0,#82,#38 

El naipe empezarà justo en el limite derecho de la pantalla, con su base en la 
linea 12. Por tanto, empezamos con 

XP = 0, XC = 32, YP = 0, YC = 9 

Recuerde que VX = —1 = #FF, puesto que el naipe està moviéndose hacia 
la izquierda, y utilizando INK cian, PAPER 8 y OR-impresión (bit 7 de atributos 
puesto a uno) tenemos los datos de movimiento iniciales del naipe: 

CARDAI DEFB 0, #FF, 0 ,32, 0 , 0 ,9, 0 , 0 , 1 , 1 , 

0,0,0,0, #85,#38 

Para u tili zar la función OR-impresión, debemos asegurarnos de que el OR- 
mapa esté borrado (utilizando la rutina CLOR del ùltimo capitulo) antes de que 
empiece cada serie completa de movimientos del sprite. De otra forma, terminaria- 
mos OR-imprimiendo la nueva imagen de un sprite encima de la vieja, provo¬ 
cando una huella no deseada por la pantalla al moverse el sprite. De està forma, 
el bucle principal de la demostración incluirà las lineas: 

CALL CLOR 
LD IY,TELMTN 
CALL SPRMV 
LD IY,CARMTN 
CALL SPRMV 

antes de una instrucción HALT, para que los sprites se impriman realmente. 

El resto del listado de demostración se explica por si solo. Observe que 
las rutinas INT1 y DISINT se vieron en el capitulo 9. 

He aqui pues la rutina de la "demostración espectacular". Estudie el listado 
con cuidado y modifique, si asi lo desea, la velocidad de los sprites, el nùmero 
de imàgenes, etc. 
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RUTINA DE DEMOSTRACION PARA PADOUT, SPREX, SPRINT Y SPRMV 


10 

20 

30 

40 




50 

; CONSERVA HL 1 PARA 

LA VUELTA AL BASIC 



60 

; 


99C8 

D9 

70 

TEST EXX 


99C9 

E5 

80 

PUSH 

HL 

99CA 

D9 

90 

EXX 




100 

7 




1 10 

;PONER HORIZONTE- 

CERO, CIELO Y MAR NEGRO 



120 

7 


99CB 

AF 

130 

XOR 

A 

99CC 

32CD99 

140 

LD 

(ROWS+1),A 

99CF 

32D099 

150 

LD 

(TOPBRD+1),A 

99D2 

32D399 

160 

LD 

(BOTBRD+1),A 



170 

7 




180 

; GENERAR DATOS DE 

SPRITE PARA EL TELEFONO 



190 

7 


9 9D5 

2 11 49B 

200 

LD 

HL,TELSPC 

99D8 

1 1549A 

2 1 0 

LD 

DE,TELDAT 



220 

7 




230 

; TELEFONO ES DE 4 

COLUMNAS POR 3 LINEAS 



240 

7 


99DB 

010304 

250 

LD 

BC,#403 

9 9DE 

FD2132 9A 

260 

LD 

IY,TELMTN 

99E2 

CDE299 

270 

CALL 

PADOUT 

9 9E5 

1601 

280 

LD 

D, 1 

99E7 

CDE799 

290 

CALL 

SPREX 



300 





310 

•GENERAR DATOS DE 

SPRITE PARA CARTA DE BARAJA 



320 



9 9EA 

2134A0 

330 

LD 

HL,CARSPC 

9 9ED 

11B49A 

340 

LD 

DE,CARDAT 



350 





360 

•LA CARTA ES DE 3 

COLUMNAS POR 4 LINEAS 



370 



99FO 

010403 

380 

LD 

BC, #304 

99F3 

FD2143 9A 

390 

LD 

IY,CARMTN 

99F7 

CDE299 

400 

CALL 

PADOUT 

99FA 

1601 

410 

LD 

D, 1 

9 9FC 

CDE799 

420 

CALL 

SPREX 



430 

; 




440 

;INICIALIZAR PROCESADOR DE IMPRESION DIRIGIDO POR INTERRIRCI 



ONES 




450 

; 


9 9FF 

CDFF99 

460 

CALL 

INT 1 

9902 

76 

470 

HALT 




480 





490 

•MOVER LOS SPRITES 

A LO LARGO DE LA PANTALLA 4 VECES A UN 



500 

; PIXEL POR CUADRO 

DE TV EN DIRECCIONES OPUESTAS 



510 



9903 

0E02 

520 

LD 

C, 2 

9905 

0600 

530 

NXAM2 LD 

B, 0 

9907 

C5 

540 

NXAM PUSH 

BC 



550 





560 

•BORRAR EL OR-MAP 

ANTES DE CADA GRUPO DE MOVIMIENTOS 



570 

7 


9908 

CD089A 

580 

CALL 

CLOR 



590 

7 




600 

; MOVER E IMPRIMIR 

EL TELEFONO 



610 

7 


990B 

FD2132 9A 

620 

LD 

IY,TELMTN 

9 9 OF 

CD0F9A 

630 

CALL 

SPRMV 



640 

7 




650 

; MOVER E IMPRIMIR 

LA CARTA 



660 

7 
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9A12 

FD2 143 9A 

670 


LD 

IY,CARMTW 

9A16 

CD0F9A 

680 


CALL 

SPRMV 

9A1 9 

CI 

690 


POP 

BC 

9A1A 

76 

700 


HALT 




710 






720 

SIGUIENTE ENCUADRE 



730 




9A1B 

1 OEA 

740 


DJNZ 

NXAM 



750 






760 

DIRECCIONES INVERSAS A LO LARGO DE X 



770 




9A1D 

FD7E01 

780 


LD 

A,(IY+1 ) 

9A20 

FD77F0 

790 


LD 

(IY-16),A 

9A23 

ED44 

800 


NEG 


9A25 

FD7701 

810 


LD 

(IY+1),A 



820 






830 

SIGUIENTE PASO 




840 




9A28 

OD 

850 


DEC 

C 

9A2 9 

2 ODA 

860 


JR 

NZ,NXAM2 



870 






880 

VOLVER 

A SELECCIONAR IM 1 Y RECUPERAR HL 



890 




9A2B 

CD2B9A 

900 


CALL 

DISINT 

9A2E 

D9 

910 


EXX 


9A2F 

E 1 

920 


POP 

HL 

9A30 

D9 

930 


EXX 


9A31 

C9 

940 


RET 




950 






960 

DATOS 

DE MOVIMIENTO DE SPRITE 



970 




9A32 

00 

980 TELMTN 

DEFB 

0 

9A33 

01 

990 


DEFB 

1 

9A34 

00 

1000 


DEFB 

0 

9A35 

FC 

1010 


DEFB 

#FC 

9A36 

00 

1020 


DEFB 

0 

9A37 

00 

1030 


DEFB 

0 

9A38 

09 

1040 


DEFB 

9 

9A39 

00 

1050 


DEFB 

0 

9A3A 

00 

1060 


DEFB 

0 

9A3B 

01 

1070 


DEFB 

1 

9A3C 

01 

1080 


DEFB 

1 

9A3D 

00 

1090 


DEFB 

0 

9A3E 

00 

1 1 00 


DEFB 

0 

9A3F 

00 

1110 


DEFB 

0 

9A40 

00 

1120 


DEFB 

0 

9A41 

82 

1 130 


DEFB 

#82 

9A42 

38 

1 140 


DEFB 

#38 

9A43 

00 

1150 CARMTN 

DEFB 

0 

9A44 

FF 

1 160 


DEFB 

#FF 

9A45 

00 

1 170 


DEFB 

0 

9A46 

20 

1 180 


DEFB 

32 

9A47 

00 

1 190 


DEFB 

0 

9A48 

00 

1200 


DEFB 

0 

9A49 

09 

12 10 


DEFB 

9 

9A4A 

00 

1220 


DEFB 

0 

9A4b 

00 

1230 


DEFB 

0 

9A4c 

01 

1240 


DEFB 

1 

9A4D 

01 

1250 


DEFB 

1 

9A4E 

00 

1260 


DEFB 

0 

9A4f 

00 

1270 


DEFB 

0 

9A50 

00 

1280 


DEFB 

0 

9A51 

00 

1290 


DEFB 

0 

9A52 

35 

1300 


DEFB 

#85 

9A53 

38 

1310 

1320 


DEFB 

#38 



1330 ;DATOS 

DE SPRITE 

SIN EXPANDIR 
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1340 ; 


9A54 

0F 

1350 TELDAT 

DEFB 

15 

9A55 

1F 

1360 

DEFB 

31 

9A56 

3F 

1370 

DEFB 

63 

9A57 

7F 

1380 

DEFB 

127 

9A58 

FF 

1390 

DEFB 

255 

9A59 

FE 

1400 

DEFB 

254 

9A5A 

FE 

1410 

DEFB 

254 

9A5B 

FC 

1420 

DEFB 

252 

9A5C 

78 

1430 

DEFB 

120 

9A5D 

30 

1440 

DEFB 

48 

9A5E 

01 

1450 

DEFB 

1 

9A5F 

03 

1460 

DEFB 

3 

9A60 

03 

1470 

DEFB 

3 

9A61 

07 

1480 

DEFB 

7 

9A62 

07 

1490 

1500 ; 

DEFB 

7 

9A63 

OF 

1510 

DEFB 

15 

9A64 

1F 

1520 

DEFB 

31 

9A65 

3F 

1530 

DEFB 

63 

9A66 

7F 

1540 

DEFB 

127 

9A67 

7F 

1550 

DEFB 

127 

9A68 

7F 

1560 

DEFB 

127 

9A69 

3F 

1570 

DEFB 

63 

9A6A 

3F 

1580 

DEFB 

63 

9A6B 

OF 

1590 

DEFB 

15 

9A6C 

FF 

1600 

DEFB 

255 

9A6D 

FF 

1610 

DEFB 

255 

9A6E 

FF 

1620 

DEFB 

255 

9A6F 

FF 

1630 

DEFB 

255 

9A70 

FO 

1640 

DEFB 

240 

9A7 1 

60 

1650 

16 6 0 ; 

DEFB 

96 

93A2 

60 

1670 

DEFB 

96 

9A43 

60 

1680 

DEFB 

96 

9 A74 

FF 

1690 

DEFB 

255 

9A75 

FF 

1700 

DEFB 

255 

9 A7 6 

F8 

1710 

DEFB 

#F8 

9A77 

F3 

1720 

DEFB 

#F3 

9 A78 

E7 

1730 

DEFB 

#E7 

9A79 

CF 

1740 

DEFB 

#CF 

9A7A 

DE 

1750 

DEFB 

#DE 

9A7B 

9C 

1760 

1770 ; 

DEFB 

#9C 

9 A7C 

9C 

1780 

DEFB 

#9C 

9A7D 

DE 

1790 

DEFB 

#DE 

9 A7E 

CF 

1800 

DEFB 

#CF 

9A7F 

E7 

1810 

DEFB 

#E7 

9A80 

F3 

1820 

DEFB 

243 

9 A8 1 

F8 

1830 

DEFB 

248 

9A82 

FF 

1840 

DEFB 

255 

9A83 

FF 

1850 

DEFB 

255 

9A84 

FF 

1860 

DEFB 

255 

9A85 

FF 

1870 

DEFB 

255 

9 A8 6 

FF 

1880 

1890 ; 

DEFB 

255 

9A87 

FF 

1900 

DEFB 

255 

9A88 

OF 

1910 

DEFB 

15 

9 A8 9 

06 

1920 

DEFB 

6 

9A8A 

06 

1930 

DEFB 

6 

9 A8b 

06 

1940 

DEFB 

6 

9 A8C 

FF 

1950 

DEFB 

255 

9 A8D 

FF 

I960 

DEFB 

255 

9 A8e 

1F 

1970 

DEFB 

31 

9 A8F 

CF 

1980 

DEFB 

#CF 

9A90 

E7 

1990 

DEFB 

#E7 

9A91 

F3 

2000 

DEFB 

243 
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9A92 

7B 

2010 

DEFB 

#7B 

9A93 

39 

2020 

DEFB 

#39 

9A94 

39 

2030 

DEFB 

#39 

9A95 

7B 

2040 

2050 ; 

DEFB 

#7B 

9A96 

F3 

2060 

DEFB 

243 

9A97 

E 1 

2070 

DEFB 

#E1 

9A98 

CE 

2080 

DEFB 

#CE 

9A99 

1F 

2090 

DEFB 

31 

9A9A 

FF 

2100 

DEFB 

255 

9A9B 

FF 

2 110 

DEFB 

255 

9A9C 

FO 

2 120 

DEFB 

240 

9A9D 

F3 

2130 

DEFB 

248 

9A9E 

FC 

2140 

DEFB 

252 

9A9F 

FE 

2150 

DEFB 

254 

9AA0 

FF 

2 160 

DEFB 

255 

9AA1 

7F 

2170 

DEFB 

127 

9 AA2 

7F 

2180 

2 190 ; 

DEFB 

127 

9AA3 

3F 

2200 

DEFB 

63 

9AA4 

1E 

22 1 0 

DEFB 

30 

9AA5 

OC 

2220 

DEFB 

12 

9AA6 

80 

2230 

DEFB 

128 

9AA7 

CO 

2240 

DEFB 

192 

9AA8 

CO 

2250 

DEFB 

192 

9AA9 

EO 

2260 

DEFB 

#E0 

9AAA 

EO 

2270 

DEFB 

#E0 

9 AAB 

FO 

2280 

DEFB 

240 

9AAC 

F8 

2290 

DEFB 

#F8 

9AAD 

FC 

2300 

DEFB 

#FC 

9AAE 

FE 

2310 

DEFB 

#FE 

9AAF 

FE 

2320 

DEFB 

#FE 

9 ABO 

FE 

2330 

2340 ; 

DEFB 

#FE 

9 AB 1 

FC 

2350 

DEFB 

#FC 

9 AB2 

FC 

2360 

DEFB 

#FC 

9AB3 

FO 

2370 

2380 ; 

DEFB 

#F0 

9 AB4 

3F 

2390 CARDAT 

DEFB 

63 

9 AB5 

60 

2400 

DEFB 

96 

9 AB6 

D8 

2410 

DEFB 

#D8 

9AB7 

AO 

2420 

DEFB 

#A0 

9 AB8 

B9 

2430 

DEFB 

#B9 

9 AB9 

AB 

2440 

DEFB 

#AB 

9 ABA 

B9 

2450 

DEFB 

#B9 

9 ABB 

85 

2460 

DEFB 

#85 

9 ABC 

8f 

2470 

DEFB 

#8f 

9 ABD 

85 

2480 

DEFB 

#85 

9 ABE 

81 

2490 

DEFB 

#81 

9 ABF 

80 

2500 

2510 ; 

DEFB 

#80 

9 ACO 

81 

2520 

DEFB 

#81 

9 AC 1 

83 

2530 

DEFB 

#83 

9 AC2 

81 

2540 

DEFB 

#81 

9AC3 

85 

2550 

DEFB 

#85 

9 AC4 

8f 

2560 

DEFB 

#8f 

9 AC5 

85 

2570 

DEFB 

#85 

9 AC6 

81 

2580 

DEFB 

#81 

9 AC7 

80 

2590 

DEFB 

#80 

9 AC8 

81 

2600 

DEFB 

#81 

9 AC9 

85 

2610 

DEFB 

#85 

9 ACA 

8f 

2620 

DEFB 

#8F 

9 ACB 

85 

2630 

DEFB 

#85 

9 ACC 

81 

2640 

2650 ; 

DEFB 

#81 

9 ACD 

83 

2660 

DEFB 

#83 

9 ACE 

81 

2670 

DEFB 

#81 
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9ACF 

80 

2680 

DEFB 

#80 

9AD0 

80 

2690 

DEFB 

#80 

9AD1 

CO 

2700 

DEFB 

#C0 

9AD2 

60 

2710 

DEFB 

96 

9AD3 

3F 

2720 

DEFB 

63 

9AD4 

FF 

2730 

DEFB 

255 

9AD5 

00 

2740 

DEFB 

0 

9AD6 

00 

2750 

DEFB 

0 

9AD7 

00 

2760 

DEFB 

0 

9AD8 

00 

2770 

DEFB 

0 

9AD9 

81 

2780 

DEFB 

#81 

9ADA 

00 

2790 

DEFB 

0 

9ADB 

42 

2800 

DEFB 

66 

9ADC 

E7 

2810 

2820 ; 

DEFB 

#E7 

9ADD 

42 

2830 

DEFB 

66 

9ADE 

00 

2840 

DEFB 

0 

9ADF 

00 

2850 

DEFB 

0 

9AE0 

00 

2860 

DEFB 

0 

9AE1 

81 

2870 

DEFB 

#81 

9AE2 

00 

2880 

DEFB 

0 

9AE3 

42 

2890 

DEFB 

66 

9AE4 

E7 

2900 

DEFB 

#E7 

9AE5 

42 

2910 

DEFB 

66 

9AE6 

00 

2920 

DEFB 

0 

9AE7 

00 

2930 

DEFB 

0 

9AE8 

00 

2940 

DEFB 

0 

9AE9 

42 

2950 

DEFB 

66 

9AEA 

E7 

2960 

DEFB 

#E7 

9AEB 

42 

2970 

DEFB 

66 

9AEC 

00 

2980 

DEFB 

0 

9AED 

81 

2990 

DEFB 

#81 

9AEE 

00 

3000 

DEFB 

0 

9AEF 

00 

3010 

DEFB 

0 

9AF0 

00 

3020 

3030 ; 

DEFB 

0 

9AF1 

00 

3040 

DEFB 

0 

9AF2 

00 

3050 

DEFB 

0 

9AF3 

FF 

3060 

DEFB 

#FF 

9AF4 

FC 

3070 

DEFB 

#FC 

9AF5 

06 

3080 

DEFB 

6 

9AF6 

03 

3090 

DEFB 

3 

9AF7 

01 

3100 

DEFB 

1 

9AF8 

81 

3110 

DEFB 

#81 

9AF9 

CI 

3120 

DEFB 

#C1 

9AFA 

81 

3130 

DEFB 

#81 

9AFB 

Al 

3140 

DEFB 

#A1 

9AFC 

FI 

3150 

DEFB 

#F 1 

9AFD 

Al 

3160 

DEFB 

#A1 

9AFE 

81 

3170 

DEFB 

#81 

9AFF 

01 

3180 

DEFB 

1 

9B00 

81 

3190 

3200 ; 

DEFB 

#81 

9B0 1 

CI 

3210 

DEFB 

#C1 

9B02 

81 

3220 

DEFB 

#81 

9B03 

Al 

3230 

DEFB 

#A1 

9B04 

FI 

3240 

DEFB 

#F1 

9B05 

Al 

3250 

DEFB 

#A1 

9B06 

81 

3260 

DEFB 

#81 

9B07 

01 

3270 

DEFB 

1 

9B08 

81 

3280 

DEFB 

#81 

9B09 

Al 

3290 

DEFB 

#A1 

9B0A 

FI 

3300 

DEFB 

#F1 

9B0B 

Al 

3310 

DEFB 

#A1 

9B0C 

81 

3320 

DEFB 

#81 

9B0D 

DD 

3330 

3340 ; 

DEFB 

#DD 
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9B0E 

95 

3350 

DEFB 

#95 

9B0F 

1 D 

3360 

DEFB 

29 

9B10 

05 

3370 

DEFB 

5 

9B11 

1 B 

3380 

DEFB 

27 

9B12 

06 

3390 

DEFB 

6 

9B 13 

FC 

3400 

DEFB 

#FC 


3410 ; 

342 0 ; AREA DE IMAGEN PARA DATOS DE SPRITE EXPANDIDO 

3430 ;LENGTH=4*5*64+(4*8) 

3440 ; 


9B14 


3450 

3460 

TELSPC 

7 

DEFS 

1312 



3470 

3480 

;LENGTH 

7 

=5*4*64+ 

(5*8) 

A034 


3490 

CARSPC 

DEFS 

1320 

A55C 

0000 

3500 


DEFW 

0 

A55E 

0000 

3510 


DEFW 

0 

A560 

0000 

3520 


DEFW 

0 

A5 62 

0000 

3530 


DEFW 

0 


Si ha seguido debidamente los ultìmos capitulos de un modo preciso, las 
imàgenes que deben aparecer en su pantalla seràn: 
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13 

Color en alta 
resolución 


Enhorabuena a todos aquellos que alguna vez hayan necesitado mas de los 
dos colores que estàn normalmente disponibles en la celdilla de cada caràcter. 
Albricias, sus deseos estàn a punto de verse cumplidos. Con las rutinas de este 
capltulo podrà cubrir un àrea de la pantalla de un ancho de 8 columnas y de una 
profundidad de hasta 24 lfneas con atributos de color a 8 veces la resolución 
normal; es decir, un octeto de atributo para cada fila de cada celdilla del àrea 
de alta resolución. 

La rutina funciona con el empieo de nuestra conocida y bien probada tèc¬ 
nica de interrupciones vectorizadas bajo modo 2 de interrupciones (IM2) de 
nuestro propio gestor de interrupciones, corno se describió en el capltulo 7. 

Al recibir una interrupción, el Spectrum ejecutarà una rutina de retardo ade- 
cuada mientras que espera para que el haz electrónico de la TV se aproxime al 
àrea de alta resolución. Desde este instante tenemos exactamente 224 T-estados 
para enviar una fila lo màs larga posible de estos atributos de "alta resolución" 
al archivo de atributos normal. Los experimentos han demostrado que, con la 
restricción usuai de que la rutina esté colocada en los 32 K superiores de la RAM 
para evitar retrasos debidos a la interferencia del ULA, es posible reemplazar los 
atributos de sólo 8 celdillas si tenemos que tener riempo para ajustar nuestros 
punteros y contadores preparados para la siguiente fila de atributos. 

Los nuevos atributos se almacenaràn en un archivo de atributos de alta 
resolución especial, cuyo principio etiquetaremos con la variable de dos octetos 
HIATT. Para màxima flexibilidad, el àrea de alta resolución tendrà una longitud 
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variable y una posición vertical variable. Etiquetando la linea superior de la 
pantalla corno cero y contando hacia abajo, la primera linea del àrea de alta 
resolución sera STRTLN, y el nùmero de llneas del àrea seràn especifìcadas 
por la variable de un octeto DEPTH. 

El gestor de interrupciones que he bautizado HIRES incluye dos opera- 
ciones de pila (stack) dentro de su bucle principal. Para asegurar que éstos 
no corran el riesgo de interferencia del ULA al acceder a los 16K màs bajos 
de la RAM, la rutina almacena el valor de SP en VALSP y luego utiliza su 
propia pila de màquina de dos octetos, situada inmediatamente antes de la ruti¬ 
na y por tanto en los 32K superiores de RAM. 

En el centro de la rutina hay una secuencia de 8 instrucciones consecutivas 
LDI para cargar los atributos del archivo de alta resolución al archivo normal. 
Este es el mètodo màs ràpido posible para la transferencia de datos, tardando 
cada operación unos 16 T-estados. Esto puede compararse con los 21 T-estados 
usuales por repetición de la instrucción LDIR (esto sólo tarda 16 T-estados 
en su ejecución final, cuando BC = 0). 

Los atributos de alta resolución son, por supuesto, puestos en el mapa exac- 
tamente de la misma forma que los octetos de atributo estàndar. Los bits de 
0 a 2 son para INK (tinta), los bits de 3 a 5 son para PAPER (papel), el bit 6 
para BRIGHT (brillo) y al poner a uno el bit 7 se indica FLASH 1 (parpadeo). 

He aqul pues el listado de HIRES, el gestor de interrupciones, seguido poco 
después por una rutina de inicialización. Recuerde las restricciones: el gestor 
de interrupciones, sus variables precedentes y el archivo de atributos de alta 
resolución deben todos estar en los 32K superiores de la RAM. 




10 

; COLOR EN ALTA RESOLUCIÓN 







20 

; NOTA:P0SICI0N POR ENCIMA DE 

LA BARRERÀ 

DE LOS 

32K 



30 

;VARIABLES Y ESPACIO PARA UN STACK DE MAQUINA 

DE 

D0S-0CTET0S 



40 

;UTILIZADAS POR EL GESTOR DE 







50 

;INTERRUPCIONES 





9029 

00 

60 

STRTLN DEFB 0 





902 A 

18 

70 

DEPTH DEFB 24 





902B 

0000 

80 

HIATT DEFW 0 





902D 

0000 

90 

VALSP DEFW 0 





902F 

0000 

100 

DEFW 0 







1 10 








120 

•CONSERVAR REGISTROS 







130 






903 1 

C5 

140 

HIRES PUSH BC 





9032 

D5 

150 

PUSH DE 





9033 

E5 

160 

PUSH HL 





9034 

F5 

170 

PUSH AF 







180 








190 

•ALMACENAR SP Y UTILIZAR LOS 

DOS OCTETOS 

QUE 

PRECEDEN 



200 

; A ESTÀ RUTINA COMO UN STACK 

(PILA) 






2 1 0 






9035 

ED732D90 

220 

LD (VALSP),SP 





9039 

313190 

230 

LD SP,HIRES 







240 

? 







250 

;PRODUCIR UN RETAHDO EXACTO 







260 






903C 

01 1802 

270 

LD BC,#2 1 8 





903F 

0B 

280 

DELAY DEC BC 





9040 

78 

290 

LD A, B 
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9041 

B 1 

300 

OR 

C 

9042 

20FB 

310 

JR 

NZ,DELAY 



320 

; 




330 

; CALCULAR EL NO. DE LINEAS DE TEXTO POR ENCIMA AREA ALT-RES 



340 

; 


9044 

3A2990 

350 

LD 

A,(STRTLN) 

9047 

87 

360 

ADD 

A, A 

9048 

87 

370 

ADD 

A, A 

9049 

87 

380 

ADD 

A, A 

904A 

CA5890 

390 

JP 

Z,G04IT2 



400 

; 




410 

;ESPERAR HASTA QUE EL RAYO ALCANZA EL AREA ALT-RES 



420 

; CADA BUCLE TARDA 

224T-ESTADOS 0 UNA FILA DE TV 



430 

; 


904D 

060F 

440 

SCANL LD 

B, 15 

904f 

10FE 

450 

LN2 DJNZ 

LN2 

9051 

00 

460 

NOP 


9052 

00 

470 

NOP 


9053 

C8 

480 

RET 

Z 

9054 

3D 

490 

DEC 

A 

9055 

C24D90 

500 

JP 

NZ,SCANL 



510 

; 




520 

;CALCULAR DIRECCION DE ATRIBUTOS PARA (STRTLN,12) 



530 

; 


9058 

6f 

540 

G04IT2 LD 

L, A 

9059 

3A2990 

550 

LD 

A,(STRTLN) 

905C 

67 

560 

LD 

H, A 

905D 

CB3C 

570 

SRL 

H 

905F 

CB1D 

580 

RR 

L 

9061 

CB3C 

590 

SRL 

H 

9063 

CB1D 

600 

RR 

L 

9065 

CB3C 

610 

SRL 

H 

9067 

CB1D 

620 

RR 

L 

9069 

110C58 

630 

LD 

DE,#58OC 

906C 

19 

640 

ADD 

HL, DE 



650 

7 




660 

;PONER DIRECCION 

DE ATRIBUTOS EN DE 



670 

7 


906D 

EB 

680 

EX 

DE, HL 



690 





700 

•TOMAR PRINCIPIO 

DE ARCHIVO DE ATRI. ALT-RES 



710 



906E 

2A2B90 

720 

LD 

HL,(HIATT) 



730 





740 

•A CUENTA EL NO. 

DE LINEAS QUE QUEDAN 



750 

7 


9071 

3A2A90 

760 

LD 

A,(DEPTH) 



770 

; 




780 

; BC CUENTA OCTETOS DE COLOR EN ALT-RES PARA ESTÀ LINEA 



790 

; 


9074 

014000 

800 

NXLINE LD 

BC, 64 



810 

; 




820 

; SALVAR DIRECCION 

DEL ATRI. A LA IZQ. DE ESTÀ LINEA 



830 

; 


9077 

D5 

840 

NXTROW PUSH 

DE 



850 

; 




860 

; TRANSFERIR LOS OCHO ATRIBUTOS PARA ESTÀ FILA 



870 

; 


9078 

EDAO 

880 

LDI 


907A 

EDAO 

890 

LDI 


907C 

EDAO 

900 

LDI 


907E 

EDAO 

910 

LDI 


9080 

EDAO 

920 

LDI 


9082 

EDAO 

930 

LDI 


9084 

EDAO 

940 

LDI 


9086 

EDAO 

950 

LDI 




960 

; 
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970 ; RECUPERAR DIRECCION DEL ATRI. DE LA IZQ. 



980 



9088 

DI 

990 

1000 

POP 

DE 



1010 

SI BC=0 ENTONCES FILA 7 ESTÀ ACABADA 



1020 



9089 

E29390 

1030 

1040 

JP 

PO,LSTROW 



1050 

1060 

23T-ESTAD0S 

ECUALIZADOR DE TIEMPO 

908C 

1800 

1070 

JR 

$ + 2 

908E 

00 

1080 

NOP 


908f 

EóFF 

1090 

AND 

//OFF 

9091 

1 8e4 

1 100 
1110 

JR 

NXTROW 



1120 

1 130 

SUMAR 32 A 

DIRECC. DE ATRI. Y MOVERLA A SIGUIENTE LINEA 

9093 

EB 

1140 LSTROW EX 

DE, HL 

9094 

0E20 

1 150 

LD 

C,32 

9096 

09 

1 160 

ADD 

HL , BC 

9097 

EB 

1 170 

EX 

DE, HL 

9098 

3D 

1 180 

DEC 

A 

9099 

C27490 

1 190 
1200 

JP 

NZ,NXLINE 



12 10 

RECUPERAR SP, Y SACAR DEL STACK LOS OTROS REGISTROS 



1220 



909C 

ED7B2D90 

1230 

LD 

SP,(VALSP) 

90A0 

FI 

1240 

POP 

AF 

90A1 

El 

1250 

POP 

HL 

90A2 

DI 

1260 

POP 

DE 

90A3 

CI 

1270 

1280 

POP 

BC 



1290 

VOLVER DESDE INTERRUPCION 



1300 

NOTA: AQUI 

PODRIA INSERTAR UN SALTO A LA 



1310 

RUTINA DE INTERRUPCION DE ROM (HASTA #38) 

90A4 

FB 

1320 

El 


90A5 

ED4D 

1330 

RETI 



Las interrupciones pueden interceptarse por medio de una tabla de vectores 
de 257 octetos, empezando en un borde de pàgina arbitrario que yo he tornado 
corno #FE00. Està tècnica se detalló en el capitulo 7. Necesitamos una rutina 
para establecer la tabla de vectores y seleccionar el modo de interrupciones 2. 
Se llamarà HIRON para indicar alta resolución activa (High Resolution ON). 
Tras la rutina hay un fragmento corto para poner la instrucción de salto a 
HIRES en #FDFD, hacia la cual estàn vectorizadas todas las interrupciones. 




10 

;INICIALIZAR INTERCEPCION DE 



20 

; CON UNA 

TABLA DE 

VECTORES D 



30 

? 





40 

;SALIDA 

BC= 0,DE = 

//FF 1 0 , HL = # 



50 

? 



8850 

3EFE 

60 

HIRON 

LD 

A,//FE 

8852 

ED47 

70 


LD 

I, A 

8854 

010001 

80 


LD 

BC,#100 

8857 

67 

90 


LD 

H, A 

8858 

69 

100 


LD 

L, C 

8859 

57 

1 10 


LD 

D, A 

885 A 

58 

120 


LD 

E, B 

885B 

3 6FD 

130 


LD 

(HL) ,//FD 

885D 

EDB0 

140 


LDIR 


885F 

ED5E 

150 


IM 

2 

8861 

C9 

160 


RET 
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170 ; 

180 ;PRODUCIR EL SALTO A HIRES(ALT-RESOLUCION) 

190 ;DESPUES DE UNA INTERRUPCION 
200 : 

FDFD 210 LABEL ORG #FDFD 

FDFD C3FDFD 220 JP HIRES 

8862 230 ORG LABEL 

Ahora que tiene la Tutina de inicialización y el gestor de interrupciones, 
tiene todos los medios para obtener color en alta resolución, y ya es casi el 
momento para unos ejemplos. 

El àrea de alta resolución màxima es de 8 x 192 celdillas, y, por tanto, 
por lo menos necesita 192 x 8 = 1.563 octetos de atributo o 1,5K de memoria. 
Tal y corno està, la tutina HIRES posiciona està àrea en el centro de la pantalla, 
empezando en la columna 12. Es posible alguna variación modificando la dirección 
de base del àrea de atributos contenida en la instrucción 

LD DE,#580C 

que se encuentra poco después de la etiqueta G04IT2. Puede que sea necesario 
algun ajuste de tiempos, pero en mi Spectrum he visto que la columna de màs a la 
izquierda del àrea de alta resolución podia variarse fàcilmente entre las columnas 0 
y 13. Por tanto, para cubrir el àrea desde la columna 5 a la columna 12 inclu¬ 
sive, cambiar la instrucción a: 

LD DE,#5805 

Al contrario de lo que ocurre en el generador de horizonte de pantalla 
completa del gestor de interrupciones del capitulo 9, HIRES no depende de una 
instrucción HALT antes de cada interrupción para mantener la estabilidad y 
evitar atributos de parpadeo. Una vez que hemos activado el color en alta reso¬ 
lución, estamos capacitados para realizar cualquier proceso que queramos sin 
preocuparnos de cuàndo tiene lugar una interrupción, hasta que no la desac- 
tivemos. 

Sustituyendo la instmcción 
JP #38 

por la parej a 

EI 

RETI 

al final de HIRES, provocariamos un salto al gestor de interrupción estàndar 
de la ROM, tras haberse generado cada cuadro de alta resolución. Seria 
seguro volver al BASIC, que funcionaria normalmente, aparte del hecho de que 
cuanto màs baja y amplia sea el àrea de alta resolución, màs lento se harà el 
BASIC. 
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Como primer ejemplo, he puesto HIRES apuntando al principio de la ROM 
y he indicado que visualice los primeros 1,5K del àrea de alta resolución com¬ 
pleta para 256 cuadros de TV (0,12 segundos). La rutina se llama DEMOl 
(; un premio para mi imaginación?). 


8869 

AF 

10 

DEMOl 

XOR 

A 

886A 

326A88 

20 


LD 

(STRTLN),A 



30 






40 

•UTILIZAR 

LAS PRIMERAS 1.5K DE 



50 

;ARCHIVO 

DE COLOR 

ALT-RES 



60 

? 



886D 

6f 

70 


LD 

L, A 

886E 

67 

80 


LD 

H, A 

886f 

3E 1 8 

90 


LD 

A,24 

8871 

327188 

100 


LD 

(DEPTH) , A 

8874 

227488 

1 10 


LD 

(HIATT),HL 

8877 

CD7788 

120 


CALL 

HIRON 



130 

? 





140 

; NOTA L = 0 

DESDE HIRON 



150 




887A 

45 

160 


LD 

B, L 



170 

; 





180 

;PRODUCIR 

ALT-RES 

COLOR DURANTE 



190 

; 5 • 12 SEGUNDOS 


887B 

76 

200 

TSLP3 

HALT 


887C 

10FD 

2 1 0 


DJNZ 

TSLP3 



220 






230 

•VOLVER A 

SELECCIONAR IM 1 PARi 



240 




887E 

ED56 

250 


IM 

1 

8880 

3E3F 

260 


LD 

A, # 3 F 

8882 

ED47 

270 


LD 

1,A 

8884 

C9 

280 


RET 



COMO 


La segunda demostración es ligeramente mas exótica e implica el empieo de 
una subrutina DATPRP para generar un archivo de atributo de 25 llneas. Por 
supuesto que no todas estas llneas pueden utilizarne en un momento cualquiera, 
pero reciclando la etiqueta que apunta al "principio" del archivo, HIATT, hacia 
atràs o hacia adelante en pasos de 8 octetos, podemos hacer que los atributos 
de alta resolución roten arriba o abajo de la pantalla. 

DATPRP, que significa PReParador de DATos, genera un archivo de atributos 
de 25 llneas, temendo cada linea misma y cada fila de una linea un sólo color 
de papel y tinta bianca. Haciendo un esfuerzo para proporcionar algunos 
colores diferenciables, he utilizado la secuencia magenta, amarillo, azul, verde, 
bianco, rojo y cian para los colores del papel de filas sucesivas. Sin embargo, 
si es posible o no que distinga estos colores (o matices para el que esté leyendo 
en bianco y negro) dependerà de la resolución de su televisor, sobre el que des- 
graciadamente yo no tengo control alguno. 

10 ;RUTINA DE DEMOSTRACION PARA CONFIGURAR UNA ARCHIVO DE COLOR 

20 ;ALT-RES DE 25 LINEAS 
30 ;ESPACIO NECESARIO=25*64=1984 
40 ; 

50 TSTDAT DEFS 1984 

60 ; 

70 DATPRP LD HL,TSTDAT 


8901 

90C1 210189 
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80 





90 

; PARA 25 LINEAS 




100 



90C4 

OE 1 9 

1 10 

LD 

C, 25 



120 

? 




130 

; UTILIZAR PAPEL 

NEGRO EN LA FILA 0 



140 

? 


90C6 

AF 

150 

XOR 

A 



160 

; 




170 

; UTILIZANDO SIEMPRE TINTA BLANCA 



180 

: 


90C7 

F607 

190 

NXCOLR OR 

7 



200 





2 1 0 

•CREAR UNA FILA 

DE ATRI. ALT-RES 



220 



90C9 

0608 

230 

LD 

B, 8 

90CB 

77 

240 

FL9 LD 

(HL),A 

90CC 

23 

250 

INC 

HL 

90CD 

10FC 

260 

DJNZ 

FL9 



270 





280 

;SIGUIENTE COLOR 

DE PAPEL 



290 

? 


90CF 

C6 18 

300 

ADD 

A,24 

90D1 

E638 

310 

AND 

#38 

90D3 

20F2 

320 

JR 

NZ,NXCOLR 



330 

? 




340 

;SIGUIENTE LINEA 




350 



90D5 

OD 

360 

DEC 

C 

90D6 

20EF 

370 

JR 

NZ,NXCOLR 

90D8 

C9 

380 

RET 



DEM02 harà que una pila multicolor se encoja hasta el "suelo" con los 
colores rotando hacia abajo en su trayectoria. La rutina funciona mejor con 
pape! y borde totalmente negros. 




10 

; CONFIGURAR ARCHIVO DE ATRI. DE 25 LINEAS Y ACTIVAR ALT-RES 



20 




8bc8 

CDC88B 

30 

DEM02 CALL 

DATPRP 

8bcb 

CDCB8B 

40 


CALL 

HIRON 



50 






60 






70 


CICLO (HIATT) HACIA ATRAS LAS PRIMERAS OCHO FILAS, 



80 


HACIENDO EL COLOR 

FLUYA HACIA LA PARTE INFERIOR DE PANTALLA 



90 

;OBSERVAR QUE POR 

ELLO NECESITAMOS 25-LINEAS EN VEZ DE 24 



100 




8bce 

11F8FF 

1 10 


LD 

DE,#FFF8 



120 






130 


DESPUES DE CADA DECREMENTO DE CICLO (DEPTH ) E INCREMENTAR 



140 


(STRTLN), HACIENDO ENCOGERSE EL AREA HIRES HACIA ABAJO 



150 




8bdi 

0E 1 8 

160 


LD 

C, 24 

8bd3 

79 

170 

TSLP LD 

A, C 

8bd4 

32D48B 

180 


LD 

(DEPTH),A 

8bd7 

3E18 

190 


LD 

A,24 

8bD9 

91 

200 


SUB 

C 

8BDA 

32DA8B 

2 1 0 


LD 

(STRTLN) , A 

8BDD 

0608 

220 


LD 

B, 8 

8bdf 

211F8C 

230 


LD 

HL,TSTDAT+34 

8BE2 

22E28B 

240 

NXRUN LD 

(HIATT),HL 

8BE5 

76 

250 


HALT 


8BE6 

19 

260 


ADD 

HL, DE 

8be7 

10F9 

270 


DJNZ 

NXRUN 
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8be9 

OD 

280 

DEC 

C 

8BEA 

20E7 

290 

JR 

NZ,TSLP 



300 

; 




310 

;VOLVER A SELECCIONAR IM 1 PARA VOLVER AL BASIC 



320 

; 


8bec 

ED5 6 

330 

IM 

1 

8BEE 

3E3F 

340 

LD 

A , # 3 F 

8bf0 

ED47 

350 

LD 

I,A 

8BF2 

C9 

360 

RET 



La rutina de demostración final de HIRES es bastante espectacular, y se 
llama (jya lo habrà adivinado!) DEM03. De nuevo, utiliza la ROM para 
proporcionar un archivo de atributos bastante aleatorio, pero en està ocasión 
tarda cerca de 30,72 segundos en ejecutar HIATT hacia atràs desde #600 hasta 
cero. E1 resultado es una estructura muy atrayente. Intente seguir su movimiento 
de izquierda a derecha, y luego mire de derecha a izquierda a través de él. 
(jObserva alguna diferencia en su velocidad aparente? 




10 

; DEFINIR 

LONGITUD 

TOTAL DEL AREA ALT-RES 


8AE5 

AF 

20 

DEM03 

XOR 

A 


8AE6 

32E68A 

30 


LD 

(STRTLN),A 


8AE9 

3E 18 

40 


LD 

A,24 


8AEB 

32EB8A 

50 


LD 

(DEPTH),A 




60 

? 






70 

;ACTIVAR 

EL COLOR 

ALT-RES 




80 





8AEE 

CDEE8A 

90 


CALL 

HIRON 




100 

; 






1 10 

; UTILIZAR 

LA ROM 

COMO UN ARCHIVO DE COLOR ALT-RES, 

PISANDO 



120 

;HIATT HACIA ATRAS DESDE #600 A CERO. OBSERVAR QUE 

HAY ALLI 



130 

;#600 ATRI. ALT-RES 


8AF1 

2606 

140 


LD 

H, 6 




150 

? 






160 

; NOTA : L 

=0 DESDE 

HIRON 




170 

? 




8AF3 

22F38A 

180 

TSLP 2 

LD 

(HIATT),HL 


8AF6 

76 

190 


HALT 



8AF7 

2D 

200 


DEC 

L 


8AF8 

20F9 

2 1 0 


JR 

NZ,TSLP2 


8AFA 

25 

220 


DEC 

H 


8AFB 

20F6 

230 


JR 

NZ,TSLP2 




240 







250 

;VOLVER A 

SELECCIONAR IM 1 PARA VOLVER AL BASIC 




260 





8AFD 

3E3F 

270 


LD 

A, # 3 F 


8AFF 

ED56 

280 


IM 

1 


8B0 1 

ED47 

290 


LD 

I, A 


8B03 

C9 

300 


RET 




Para concluir este capltulo deberla indicar que el formato de arriba no es la 
ùnica estructura posible para color en alta resolución. Para empezar, si estuviera 
dispuesto a tener sólo un octeto de atributo por linea de exploración, no necesi- 
taria hacer un volcado de un archivo de color en alta resolución de uno en 
uno, y podria cambiar la instrucción de 16T-estados: 

LDI 
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por dos instrucciones corno: 

LD (DE), A 

INC E 

donde el acumulador contendrla el atributo de fila actual y cada pareja 
tardarla 11 T-estados. De està forma probablemente aumentarla el ancho del 
àrea de alta resolución tres o cuatro columnas. 
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170 




14 

Producción de 
imàgenes en pantalla 

completa con el borde 

Por muy espectacular que fuese, el horizonte de pantalla completa generado 
en el capltulo 9 "cambiando" el color del borde cien veces por segundo (a 
100 Hz) fue un simple rasguno en la superficie de los efectos potenciales de un 
control del color directo del color del borde. En este capltulo, llevaré a cabo 
toda la potencia del "cambio" del borde a alta velocidad con una serie de ru- 
tinas que le permitiràn obtener diez columnas distintas en el borde, temendo 
cada fila de ellas cualquiera de los 8 colores. Las velocidades del "cambio" 
implicadas llevaràn al procesador Z-80 hasta sus llmites, con un intervalo de 
12 T-estados entre los cambios de color y una frecuencia por encima de una 
fila de TV de 156250 Hz. 

Los principios implicados en el "generador de imagen" son muy similares 
a los de nuestro horizonte de pantalla completa. Utilizamos interrupciones 
vectorizadas bajo el modo 2 de interrupción para nuestro gestor de interrupción 
hecho a la medida, que después de ejecutar los retardos apropiados segun el 
haz electrónico de la TV desciende por la pantalla, se precipita a través de una 
tabla de valores del borde corno alma que lleva el diablo, cambiando siempre 
el color del borde exactamente en las mismas etapas de la generación de cada 
cuadro de TV. 

Para entrar en mas detalle, recuerde que el tiempo que tarda la TV en 
generar una fila de pantalla es exactamente de 224 T-estados. Ahora bien, la 
forma mas ràpida de transferir los datos de una tabla al puerto 254 es con el 
uso de una secuencia de instrucciones OUTI, cada una de las cuales tarda 16 
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T-estados. Como està instrucción se utiliza tan pocas veces, me tomaré la moles¬ 
tia de detallarle su funcionamiento. 

La parej a de HL contiene la dirección del octeto de datos; el registro C 
contiene el octeto de menor peso de la dirección del puerto, y el registro B 
proporciona el octeto de mayor peso de dicha dirección. En cada ejecución, el 
registro B se decrementa, se forma la dirección de puerto, se envia al puerto 
el octeto de datos de HL y se incrementa HL. Si B llega a ser cero, se pone a 
uno la bandera cero; en caso contrario, continua a cero. 

La teoria parece indicar que podemos obtener INT (224/16) = 14 columnas 
de borde en la pantalla, pero debemos recordar que el haz de la TV tarda un 
cierto espacio de riempo en un n retroceso n horizontal desde el extremo derecho 
de la pantalla hasta el izquierdo. Los experimentos revelan que està transversai 
ocupa al haz durante unos 64 T-estados, 2/7 o mas o menos el 29 por 100 de 
su riempo. 

Por consiguiente, tenemos suficiente riempo para cambiar el color del borde 
diez veces, mientras que el haz atraviesa la pantalla de izquierda a derecha, y esto 
tiene corno resultado que cada ?f columna de borde” tenga un ancho de cuatro co¬ 
lumnas de texto. 

Llamo a este gestor de interrupciones BORPIC por razones obvias (BORder 
PICture generator). Los datos del borde para BORPIC se almacenaràn en cual- 
quier parte que desee de los 32K superiores de la RAM, y deben ser apuntados 
por la variable PICDAT de dos octetos. Haremos el formato de los datos del 
borde corno sigue: 

PRIMER OCTETO: NUMERO DE LINEAS DEL BORDE 

luego los datos para cada ”linea de borde”: 

PRIMER OCTETO: NUMERO DE FI LAS DE TV EN ESTÀ LINEA DE 
BORDE 

DIEZ OCTETOS: Los valores del borde para cada una de las 10 columnas 

de borde. 

El concepto de lineas de borde es anàlogo al de lineas de texto, con la 
excepción de que las lineas de borde tienen un nùmero variable de filas (hasta 
256) y las filas continuan por encima y por debajo del àrea del texto. Se ve 
fàcilmente que el àrea de almacenamiento que se necesita para una imagen con 
n lineas de borde viene dado por: 

Memoria que se necesita: (11 * n) + 1 

En el listado de BORPIC verà que he reservado espacio para diez lineas de 
datos de borde y lo he etiquetado BORSTR. Se utilizarà està àrea màs tarde, 
pero de momento he aqui el listado. [Por favor, no lo ejecute hasta que le 
explique corno hacerlo! 
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8D15 

0000 

10 

PICDAT 

DEFW 

0 



20 

? 





30 

;PICDAT 

CONTIENE 

LA DIRECCION DE DATOS DEL BORDE 



40 

;ESPACIO 

NECESARIO=1 + 11 *(NO. DE LINEAS DEL BORDE) 



50 

? 



8D17 


60 

BORSTR 

DEFS 

1 1 1 



70 

; 





80 

;EL GENEKADOR DEL 

CUADRO DEL BORDE CONSERVA LOS REGISTROS 



90 

; 



8d86 

C5 

100 

BORPIC 

PUSH 

BC 

8d87 

D5 

1 10 


PUSH 

DE 

8d88 

E5 

120 


PUSH 

HL 

8D89 

F5 

130 


PUSH 

AF 

8d8A 

08 

140 


EX 

AF,AF’ 

8d8b 

F5 

150 


PUSH 

AF 



160 






170 

•ESPERAR 

38T-ESTADOS 



180 

? 



8d8c 

E3 

190 


EX 

(SP),HL 

8d8d 

E3 

200 


EX 

(SP),HL 



2 10 

? 





220 

;ESPERAR 

DURANTE 

(FLYBAK+1) FILAS DE TV MIENTRAS EL RAYO 



230 

;ALCANZA 

LA PARTE 

SUPERIOR DE LA PANTALLA 



240 

? 



8d8e 

3E1F 

250 

FLYBAK 

LD 

A,31 

8D90 

060F 

260 

SCANM 

LD 

B, 15 

8D92 

10FE 

270 

LN4 

DJNZ 

LN4 

8D94 

00 

280 


NOP 


8D95 

A7 

290 


AND 

A 

8D96 

C8 

300 


RET 

Z 

8D97 

3D 

310 


DEC 

A 

8D98 

C2908D 

320 


JP 

NZ,SCANM 



330 

? 





340 

;AJUSTE 

DE TIEMPO 

DE 5T-ESTADOS 



350 




8D9B 

CO 

360 


RET 

NZ 



370 

; 





380 

;HL SENALA LOS DATOS DE LA IMAGEN 



390 

; 



8D9C 

2A158D 

400 


LD 

HL,(PICDAT) 



410 

; 





420 

; C CONSERVA EL VALOR DEL PUERTO 



430 

; 



8D9F 

OEFE 

440 


LD 

C,#FE 



450 

; 





460 

; A CUENTA LAS LINEAS DE DATOS DEL BORDE 



470 

; 



8DA 1 

7E 

480 


LD 

A,(HL) 

8DA2 

23 

490 


INC 

HL 



500 

; 





510 

; ALMACENAR EL COMIENZO DE ESTÀ FILA DE DATOS EN DE 



520 

; 



8DA3 

54 

530 


LD 

D, H 

8DA4 

5D 

540 


LD 

E, L 



550 

; 





560 

;EL NUCLEO DE 10 

CAMBIOS SUCESIVOS DE BORDE 



570 

; 



8DA5 

EDA3 

580 

NXTRW 

OUTI 


8DA7 

EDA3 

590 


OUTI 


8DA9 

EDA3 

600 


OUTI 


8DAB 

EDA3 

610 


OUTI 


8DAD 

EDA3 

620 


OUTI 


8DAF 

EDA3 

630 


OUTI 


8DB1 

EDA3 

640 


OUTI 


8DB3 

EDA3 

650 


OUTI 


8DB5 

EDA3 

660 


OUTI 


8DB7 

EDA3 

670 


OUTI 
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680 





690 

GENERAR LA SIGUIENTE FILA DE 



700 



8DB9 

3D 

710 

DEC 

A 

8DBA 

CAC88D 

720 

JP 

Z,NXTLN 

8DBD 

62 

730 

LD 

H,D 

8DBE 

6b 

740 

LD 

L, E 



750 





760 

PRIMERO ESPERAR 

30T-ESTADOS 



770 



8dbf 

0600 

780 

LD 

B, 0 

8DC1 

0600 

790 

LD 

B, 0 

8DC3 

1800 

800 

JR 

$ + 2 

8DC5 

00 

810 

NOP 


8DC6 

18DD 

820 

JR 

NXTRW 



83 0 ;SIGUIENTE LINEA 

DE DATOS DEL 



840 



8DC8 

08 

850 NXTLN EX 

AF,AF’ 

8DC9 

3D 

860 

DEC 

A 



870 





880 

ECUALIZADOR DE 

7T-ESTAD0S 



890 



8DCA 

E6FF 

900 

AND 

#FF 

8DCC 

C2CC8D 

910 

JP 

NZ,NXTLN2 



920 





930 

RECUPERAR REGISTROS Y VOLVER 



940 



8DCF 

FI 

950 

POP 

AF 

8DD0 

08 

960 

EX 

AF,AF’ 

8DD1 

FI 

970 

POP 

AF 

8DD2 

El 

980 

POP 

HL 

8DD3 

DI 

990 

POP 

DE 

8DD4 

CI 

1000 

POP 

BC 

8DD5 

FB 

1010 

El 


8DD6 

ED4D 

1020 

RETI 



Como dije, BORPIC debe funcionar corno un gestor de interrupciones que 
utiliza IM2. Emplearemos la tabla usuai de vectores de 257 octetos para una 
instrucción de salto a BORPIC, una tècnica descrita con detalle en el capitulo 7. 
Como siempre, es cosa suya dónde pone la instrucción de salto y en qué zona 
de la pàgina coloca la tabla. Si està indeciso, <fpor qué no pone la tabla de vec¬ 
tores en #FE00 y la instrucción de salto en #FDFD? Esto se puede conseguir 
anadiendo las lineas: 

LABEL ORG #0FDFD 

C30000 JP BORPIC 

ORG LABEL 

Entonces se puede utilizar la rutina HIRON del capitulo 13 para establecer 
la tabla de vectores y seleccionar el modo dos de interrupciones (se empieo pre¬ 
viamente para establecer la misma tabla para la rutina de color en alta reso- 
lución HIRES). 

Ahora pues, tenemos las rutinas necesarias para hacer que el cuadro del 
borde sea una realidad. El generador es extremadamente sensible a las variaciones 
de tiempos, asi es que, corno en el caso del generador de horizonte de pan- 
talla completa del capitulo 9, siempre tenemos que volver a una instrucción 
HALT antes de una interrupción. De este modo tenemos una variación màxima 
de 4 T-estados, el riempo que tarda el procesador en ejecutar un NOP, que es 
lo que hace repetidamente cuando se alcanza la instrucción E1ALT. 
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Refiriéndome al listado de BORPIC, vera que hay una etiqueta misteriosa 
en la linea: 

FLYBAK LD A, 31 

(E1 flyback es el retroceso del haz de electrones del televisor al principio 
de una nueva linea en el barrido de la pantalla). 

Utilizaremos esto para hacer ajustes en la altura a la que empieza el cuadro 
del borde en la pantalla. El valor que se carga en A es el nùmero de fìlas de 
TV que tiene que esperar la rutina antes de comenzar el proceso de los datos 
del borde. Si desea que un cuadro empiece justo en la parte superior de la 
pantalla, ajuste (FLYBAK + 1) hasta que lo haga. El valor resultante dependerà 
de su aparato particular de TV asi corno de su Spectrum. 

En el caso de mi portàtil de color, descubri que al cargar (FLYBAK + 1) 
con 31 llevaba el haz hasta la parte superior de la pantalla. Entonces habia 
32 filas del borde superior que quedaban antes del àrea del texto, y, desde 

luego, es lo màs generai que la altura de este "margen superior" màs el valor en 

(FLYBAK + 1) sea 63. Por supuesto, hay 192 filas en el àrea del texto. Debajo 
de esto està el "margen inferior", cuya altura visible varia con los distintos tele- 
visores y Spectrums, pero en mi sistema es de unas 44 filas de profundidad, 

dando un total de 32 + 192 + 44 = 268 filas en la pantalla. 

Aunque ahora podemos producir una imagen estable en el borde de la pan¬ 
talla, serà algo incompleta, a menos que podamos mostrar las partes de las 
"columnas de borde" y de las "lineas de borde" que estàn, por decirlo de algun 
modo, "detràs" del àrea de texto. Lo que necesitamos es una rutina que examine los 
datos para la parte "invisible" del borde y establezca los atributos del papel 
en todas las celdillas del texto apropiadamente, para que después de activar el 
generador del cuadro parezca que tenemos una imagen de pantalla completa y 
la barrerà entre el àrea del texto y el borde no se pueda detectar. Ahora desa- 
rrollaré una rutina semej ante y la llamaré ATTSET. 

Nueve de las columnas del borde se superponen al àrea del texto de la si- 
guiente forma: 


Anchuras 
(columnas texto) 


1 

4 

4 

4 

4 

4 

4 

4 

3 

Columna borde: 

0 

1 

2 

3 

4 

5 

6 

7 

8 


Para los propósitos de està rutina supondremos que el àrea del texto ha 
sido dividida en exactamente seis lineas de borde, cada una de las cuales tiene 
32 filas de altura. Si prefiere tener lineas de borde màs estrechas, o posiblemente 
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lineas de borde de altura variable, ATTSET se ajusta con facilidad. No se le habrà 
escapado el detalle de que 32 filas = 4 lineas de texto en altura; por tanto, 
con este formato acabamos produciendo ?f celdillas de borde” que son un cuadrado 
de 4 celdillas de texto. 

Los principios implicados en ATTSET son realmente muy sencillos; entramos 
en la rutina con HL apuntando a los datos del borde para la primera columna 
de la primera linea de borde del àrea del texto, ATTSET toma este octeto, lo 
multiplica por 8 para obtener un valor de PAPER, efectua una operación OR 
con este valor y el de INK de la primera celdilla y a continuación pone el 
resultado en el primer octeto del archivo de atributos. Se toma el siguiente valor 
del borde y se utiliza para las siguientes cuatro columnas de texto de la linea 0, 
y este procedimiento se repite para las siguientes 6 columnas de borde. El valor 
de la columna 8 del borde se utiliza para las tres columnas de texto finales, y 
està linea de datos de borde se vuelve a procesar tres veces para las lineas de 
texto que quedan de està linea de borde. 

Todo el procedimiento arriba mencionado se repite para cada una de las 
cinco lineas de borde que quedan en el àrea del texto. He aqui el listado de 
ATTSET, seguido por una demostración: 


10 ;RUTINA PARA PONER ATRI. DE PAPEL DADOS UNOS DATOS DEL BORDE 
20 ;ENTRADA : HL=DIRECCION DEL PRIMER OCTETO DE DATOS DEL BORDE 


30 

40 

50 

60 


EN EL AREA DE TEXTO COMO SE PRODUJO POR M EXPAND M 
SALIDA:BC=0,HL=#5B00 

HL SENALA AL COMIENZO DE LOS ATRIBUTOS 


8F37 

1 10058 

70 

ATTSET LD DE,#5800 

8F3A 

EB 

80 

EX DE,HL 



90 




100 

;B CUENTA LAS LINEAS DE BORDE 



1 10 


8F3B 

0606 

120 

LD B,6 



130 

7 



140 

; C CUENTA LAS LINEAS DE ATRIBUTOS (4 POR 



150 

7 

8F3D 

0E04 

160 

NXTLN3 LD C, 4 



170 

7 



180 

; ALMACENAR DIRECCION DE DATOS DE BORDE 



190 


8F3F 

D5 

200 

NXT14 PUSH DE 

8f40 

C5 

2 1 0 

PUSH BC 



220 

; C CONTIENE LA MASCARA PARA EL PAPEL 



230 

• 

8f4 1 

0E38 

240 

LD C,# 3 8 



250 

; 



260 

■ 

;TOMAR OCTETO DE BORDE MULT. POR 8 PARA 

r 



270 

L 

8F43 

1A 

280 

LD A,(DE) 

8f44 

07 

290 

RLCA 

8f45 

07 

300 

RLCA 

8f46 

07 

310 

RLCA 



320 




330 

•UTILIZAR TINTA DE LA CELDA CON NUESTRO 



340 

; UN NUEVO OCTETO DE ATRIBUTO 



350 


8f47 

AE 

360 

XOR (HL) 
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8f48 

Al 

370 


AND 

c 

8f49 

AE 

380 


XOR 

(HL) 

8f4A 

77 

390 


LD 

(HL),A 



400 






410 

HACER 

LO MISMO 

PARA LAS 7 SIGUIENTES COLUMNAS DE BORDE 



420 

QUE TIENEN CUATRO COLUMNAS DE ANCHURA 



430 




8f4b 

13 

440 


INC 

DE 

8f4c 

2C 

450 


INC 

L 

8f4d 

0607 

460 


LD 

B,7 

8f4f 

1 A 

470 NXT12 

LD 

A,(DE) 

8F50 

07 

480 


RLCA 


8f5 1 

07 

490 


RLCA 


8F52 

07 

500 


RLCA 


8F53 

AE 

510 


XOR 

(HL) 

8f5 4 

Al 

520 


AND 

C 

8F55 

AE 

530 


XOR 

(HL) 

8f5 6 

77 

540 


LD 

(HL),A 

8F57 

2C 

550 


INC 

L 

8F58 

AE 

560 


XOR 

(HL) 

8F5 9 

Al 

570 


AND 

C 

8F5 A 

AE 

580 


XOR 

(HL) 

8F5B 

77 

590 


LD 

(HL),A 

8F5C 

2C 

600 


INC 

L 

8F5D 

AE 

610 


XOR 

(HL) 

8F5E 

Al 

620 


AND 

C 

8F5F 

AE 

630 


XOR 

(HL) 

8f60 

77 

640 


LD 

(HL),A 

8F 6 1 

2C 

650 


INC 

L 

8f 62 

AE 

660 


XOR 

(HL) 

8F63 

Al 

670 


AND 

C 

8f64 

AE 

680 


XOR 

(HL) 

8f65 

77 

690 


LD 

(HL),A 

8f66 

2C 

700 


INC 

L 

8f67 

13 

710 


INC 

DE 



720 






730 

SIGUIENTE COLUMNA DEL BORDE 



740 




8f68 

1 0E5 

750 


DJNZ 

NXT12 



760 






770 

AHORA 

HACER LAS 

TRES COLUMNAS DE ATRI. DE MAS A LA DERECHA 



780 




8f6A 

1A 

790 


LD 

A,(DE) 

8f6b 

07 

800 


RLCA 


8f6c 

07 

810 


RLCA 


8f6d 

07 

820 


RLCA 


8f6e 

AE 

830 


XOR 

(HL) 

8f6f 

Al 

840 


AND 

C 

8f70 

AE 

850 


XOR 

(HL) 

8F7 1 

77 

860 


LD 

(HL),A 

8F72 

2 C 

870 


INC 

L 

8F73 

AE 

880 


XOR 

(HL) 

8F74 

Al 

890 


AND 

C 

8F75 

AE 

900 


XOR 

(HL) 

8F76 

77 

910 


LD 

(HL),A 

8f77 

2 C 

920 


INC 

L 

8F78 

AE 

930 


XOR 

(HL) 

8F79 

Al 

940 


AND 

C 

8F7A 

AE 

950 


XOR 

(HL) 

8F7B 

77 

960 


LD 

(HL),A 

8F7C 

23 

970 


INC 

HL 



980 






990 

HL SENALA AHORA 

LA SIGUIENTE LINEA DE ATRIBUTOS 



1000 




8F7D 

CI 

1010 


POP 

BC 



1020 ; 






1030 ;REPETIR PARA LAS TRES LINEAS DE ATRI. SIGUIENTES 


Ili 










1040 

: 



8F7E 

OD 

1050 

DEC 


c 

8f7F 

2803 

1060 

JR 


Z,OUT1 

8f8 1 

DI 

1070 

POP 


DE 

8F82 

18BB 

1080 

1090 

JR 


NXT14 



1 100 

•ELIMINAR LA 

ULTIMA ENTRADA DEL STACK (PILA) 



1110 




8f84 

FI 

1120 

OUT1 POP 


AF 



1 130 

1 140 

; INCREMENTAR 

EL 

PUNTERÒ A SIGUIENTE LINEA DE DATOS DE BORDE 

8f85 

13 

1 150 

INC 


DE 

8f86 

13 

1 160 

INC 


DE 

8f87 

13 

1 170 

1 180 

INC 


DE 



1 190 

;REPETIR PARA 5 

LINEAS DE BORDE 



1200 

; 



8f88 

10B3 

1210 

DJNZ 


NXTLN3 

8f8A 

C9 

1220 

RET 




Como demostración de BORPIC y ATTSET, obtendremos una estructura 
multicolor de ocho llneas de borde por ocho columnas, teniendo cada linea 
una altura de 32 fìlas, corno requiere ATTSET. Las primeras 32 fìlas por encima 
del àrea del texto son necesarias para la primera linea, asl es que tenemos que 
poner (FLYBAK + 1) a 63 — 32 = 31 para empezar a generar la imagen en el 
sitio correcto. En BORSTR se preparan los datos del borde, y el espacio que se 
necesita sera de 1 + (8 x 11) = 89 octetos, que estàn dentro de los 111 octetos 
que reservamos en BORPIC. 

Puesto que tenemos un octeto para el nùmero de llneas, once para la primera 
linea de borde y uno para la altura del segundo, el primer valor de borde de la 
segunda linea de borde estarà en (BORSTR +1 + 11 + 1) = (BORSTR + 13). 
Por lo cual establecemos los atributos de PAPER con: 

LD HL,BORSTR+13 

CALL ATTSET 


Los comentarios del listado en ensamblador proporcionan suficiente expli- 
cación del resto de la rutina, llamada BPDEMO. 


10 ;DEMOSTRACION PARA BORPIC Y ATTSET 
20 ; 


8B7F 

3E1F 

30 

BPDEMO LD A,31 

8b8 1 

32828B 

40 

LD (FLYBAK+1) , A 



50 




60 

;CONSTRUIR DATOS DE BORDE EN BORSTR 



70 


8b84 

2 1 848b 

80 

LD HL,BORSTR 

8b87 

22878B 

90 

LD (PICDAT),HL 



100 




1 10 

•COMENZAR CON BORDE NEGRO 



120 


8b8A 

AF 

130 

XOR A 



140 

? 



150 

; DENOTAR "8 LINEAS DE BORDE" 



160 

? 

8b8b 

3608 

170 

LD (HL),8 

8b8d 

23 

180 

INC HL 


190 ; 

200 ;BUCLE PARA GENERAR DATOS PARA CADA LINEA DE BORDE 
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2 1 0 

; INDICAR ”32 FILAS EN ESTÀ LINEA” 

8B8E 

3620 

220 

NXBLIN LD 

(HL),32 

8b90 

23 

230 

INC 

HL 



240 

;HACER NEGRA LA 

PRIMERA COLUMNA DEL BORDE 



250 

; 


8b9 1 

3600 

260 

LD 

(HL),0 

8B93 

23 

270 

INC 

HL 



280 

; 




290 

;PASAR POR OCHO 

COLORES PARA LAS OCHO COLUMNAS CENTRALES 

8B94 

0608 

300 

LD 

B, 8 

8b96 

77 

310 

NXBCLM LD 

(HL),A 

8B97 

C603 

320 

ADD 

A,3 

8B99 

E607 

330 

AND 

7 

8B9B 

23 

340 

INC 

HL 

8B9C 

10F8 

350 

DJNZ 

NXBCLM 



360 





370 

•HACER NEGRA LA 

ULTIMA COLUMNA 



380 



8B9E 

70 

390 

LD 

(HL),B 

8B9F 

23 

400 

INC 

HL 



410 

; 




420 

; CAMBIAR COLOR 

DE SEGUNDA COLUMNA A LA SIGUIENTE EN LA SERIE 

8BA0 

C603 

430 

ADD 

A,3 

8BA2 

E607 

440 

AND 

7 

8ba4 

20E8 

450 

JR 

NZ,NXBLIN 



460 





470 

•PONER ATRI. DE 

PAPEL PARA HACER COINCIDIR CON DATOS DEL 



480 

;BORDE 




490 



8BA6 

2 1918B 

500 

LD 

HL,BORSTR +13 

8BA9 

CDA98B 

510 

CALL 

ATTSET 



520 

; 




530 

;ACTIVAR LA IMAGEN DEL BORDE 



540 

; 


8bac 

CDAC8B 

550 

CALL 

HIRON 



560 

; 




570 

; GENERARLA DURANTE 5.12 SEGUNDOS 



580 

; NOTAR QUE B = 0 

DESDE ATTSET 

8baf 

76 

590 

TSLP9 HALT 


8bbo 

10FD 

600 

DJNZ 

TSLP9 



610 

; 




620 

;VOLVER A SELECCIONAR IMI PARA EL BASIC 



630 

; 


8BB2 

ED56 

640 

IM 

1 

8bb4 

3E3F 

650 

LD 

A, # 3 F 

8bb6 

ED47 

660 

LD 

I,A 

8bb8 

C9 

670 

RET 



Como ultima ruttila de utilidad para BORPIC, pensé que sena pràctico 
tener una que genere los datos de borde, dando una serie de estructuras de 
bits y valores de color que llamaré colectivamente "datos de borde compactos". 

La ruttila EXPAND nos permitirà especifìcar cualquier numero de Kneas 
de borde, temendo cada una de ellas cualquier altura (hasta 256 en cada caso) 
y utilizar dos colores para cada linea de borde, que entonces sera definida por 
los diez bits de mas a la izquierda de dos "octetos de datos compactos". Cada 
uno de estos diez bits corresponde a una columna de borde de una linea de 
borde. Utilizando un sistema anàlogo a los valores de INK y PAPER del BASIC 
del Spectrum, dejaremos que los dos colores disponibles de cada linea de borde 
sean BINK y BAPER, indicando BINK una celdilla de borde con un 1, y una 
celdilla BAPER con un 0. 

Para reducir la cantidad de datos que se necesitan para una imagen, sólo 
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especificaremos los valores de BINK y BAPER al principio de los datos y siempre 
que queramos cambiar sus valores segun vamos trabajando hacia abajo de la 
pantalla. Necesitamos algun modo de decir a EXPAND que empiece a utilizar 
nuevos colores, y probablemente la forma mas fàcil para elio es el empieo de los 
seis bits que sobran en la parte derecha de los datos para una linea. Los pon- 
dremos a #3F para un cambio de colores, a continuación seguimos este octeto 
con otros dos que contienen los valores BINK y BAPER respectivamente. 
Poniendo los mismos bits a #3E se indicarà "fin de datos". Este procedi- 
miento se aclararà con los ejemplos que siguen al listado de EXPAND. 


io 

20 

30 

40 

50 

60 

70 

80 

90 


RUTINA PARA EXPANDIR LOS DATOS DEL BORDE PARA BORPIC 

ENTRADA:HL=C0MIENZ0 DE DATOS DEL BORDE COMPACTO 

SALIDA:HL=DIRECCION DEL PRIMER VALOR DEL BORDE DE PRIMERA 

LINEA DEL BORDE EN AREA DE TEXTO 

A=0,B=BAPER COLOR,C=BINK COLOR 

DE =SIGUIENTE OCTETO TRAS DATOS COMPACTOS 

CONSTRUIR LOS DATOS EN EL ESPACIO EN BORSTR 


8F5A 

1 1 5 A8F 

100 

EXPAND LD 

DE,BORSTR 



1 10 

? 




120 

; TRANSFERIR "NO. 

DE LINEAS" 



130 

? 


8F5D 

EDA0 

140 

LDI 




150 

• 




160 

; UN REG. CONTENDRA LAS FILAS DE TV VISUALIZADAS HASTA EL 



170 

; MOMENTO 




180 

; 


8f5F 

AF 

190 

XOR 

A 

8f60 

08 

200 

EX 

AF,AF ’ 



2 1 0 

? 




220 

; C = BINK COLOR 




230 

? 


8f6 1 

4e 

240 

NEWCOL LD 

C, (HL) 

8F62 

23 

250 

INC 

HL 



260 





270 

;B=BAPER COLOR 




280 

? 


8f63 

46 

290 

LD 

B, (HL) 

8f64 

23 

300 

INC 

HL 



310 

; 




320 

; SI ESTAMOS EN EL AREA DE TEXTO ENTONCES ALMACENAR 



330 

;DIRECCION DE DATOS EXPANDIDOS 



340 

; 


8f65 

08 

350 

NXTWD EX 

AF,AF ’ 



360 

; 




370 

;EL SIGUIENTE VALOR PUEDE ALTERARSE PARA CAMBIAR EL VALOR 



380 

; DE PROFUNDIDAD 

DEL BORDE SUPERIOR 

8f66 

FE2 1 

390 

TPMRGN CP 

33 

8f68 

C2 6C8F 

400 

JP 

NZ,NYET 

8f6b 

D5 

410 

PUSH 

DE 



420 

; 




430 

; INCREMENTAR CONTADOR DE FILA 



440 

• 


8f6c 

86 

450 

NYET ADD 

A,(HL) 

8f6d 

08 

460 

EX 

AF,AF ' 



470 

; 




480 

; TRANSFERIR PROFUNDIDAD DE ESTÀ LINEA (EN FILAS) 



490 

; 


8f6e 

EDA0 

500 

LDI 


8f70 

03 

510 

INC 

BC 
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8f 7 1 7E 
8F72 EB 
8F73 D5 


8F74 1E08 


8F76 17 

8F77 70 

8F78 D27C8F 


8F7B 71 


8F7C 23 
8F7D 1D 
8F7E C2768F 


8f8 1 DI 
8F82 13 

8f83 1A 


8f84 17 

8F85 70 

8f86 D2 8A8f 
8f89 71 

8f8A 17 
8f8b 23 
8f8c 70 
8f8d D2 918f 
8F90 71 

8f 9 1 23 


8F 92 1A 

8f 93 13 

8F94 EB 


8f 95 F6C0 
8F97 3C 
8F98 28C7 


8F 9A 3C 
8F9B C2658F 


8F9E E1 
8F9F 23 
8FA0 C9 


520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1 020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1110 
1120 
1130 
1 140 
1150 
1 160 
1170 
1 180 


;TOMAR PRIMER OCTETO DE DATOS COMPACTOS 

LD A,(HL) 

EX DE, HL 

PUSH DE 

; PARA CADA UNO DE LOS OCHO BITS .. 

LD E, 8 

;PONER OCTETO DE BAPER EN DATOS DE BORDE SI BIT = 1 

ABC RLA 

LD (HL ) , B 

JP NC,PAPER 

•SI NO INSERTAR UN OCTETO DE BINK 

LD (HL),C 

;DESPLAZARSE AL SIGUIENTE BIT 

PAPER INC HL 

DEC E 

JP NZ,ABC 

•TOMAR EL SEGUNDO OCTETO COMPACTO 

POP DE 

INC DE 

LD A,(DE) 

jELEGIR BAPER 0 BINK PARA CADA UNO DE DOS BITS MAS A LA IZQ 
RLA 

LD (HL ) , B 

JP NC,PAPER2 

LD (HL),C 

PAPER2 RLA 

INC HL 

LD (HL ) , B 

JP NC,PAPER3 

LD (HL),C 

PAPER3 INC HL 

jCOMPROBAR BITS 0-5 DEL SEGUNDO OCTETO COMPACTO DE DATOS 

LD A,(DE) 

INC DE 

EX DE, HL 

•#3F INDICA NECESIDAD DE NUEVOS COLORES 

OR #C0 

INC A 

JR Z,NEWCOL 

; #3E INDICA FINAL DE DATOS 

INC A 

JP NZ,NXTWD 

;EN CUYO CASO RECUPERAR DIRECCION POR ATTSET 

POP HL 

INC HL 

RET 
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Fi'jese en la linea: 

TPMRGN CP 32 

E1 valor de està instrucción es el nùmero de fìlas del cuadro del borde que 
està encima del àrea del texto, y siempre debe ser igual a 63 — (FLYBAK + 1), 
es decir, la suma de los dos valores de las etiquetas FLYBAK en BORPIC y 
TPMRGN en EXPAND deberia ser 63: 


(FLYBAK + 1) + (TPMRGN + 1) = 63 

TPMRGN, en caso de que no lo haya adivinado, representa margen superior 
(ToP MaRGiN), EXPAND emplea este valor para encontrar la dirección correcta 
de los datos de borde que hay que utilizar corno valor de entrada a ATTSET, 
donde se puede aplicar este uso. Luego almacena este valor y lo devuelve en HL 
dispuesto para un uso inmediato, si asi se desea, con ATTSET. 

Como demostración sencilla de EXPAND, he escrito una rutina para mos¬ 
trar una burda pero gran manifestación de un logotipo. Utilizaremos una reja 
de 10 x 8 celdillas de borde cuadradas, asi es que necesitamos que el margen 
superior sea de una altura de 32 fìlas. Esto se establece con: 

LD A,32 

LD (TPMRGN + 1), A 
LD A, 31 

LD (FLYBAK + 1), A 

EXPAND construye los datos en el espacio previamente reservado en 
BORSTR, y asi debemos hacer que PICDAT apunte a él: 

LD HL, BORSTR 
LD (PICDAT),HL 

La imagen deseada es la siguiente: 




Baper amarillo 
Baper rojo 

Baper magenta 

FBaper azul 
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A primera vista, la estructura de bits para esto viene dada por los valores 
hexadecimales; 


00 

00 

00 

00 

41 

00 

63 

00 

77 

00 

5D 

00 

49 

00 

E 3 

80 


Ahora debemos incorporar la otra información. E1 primer octeto debe ser 
el nùmero de las lineas de borde (8) seguido por los primeros valores de BINK 
y BAPER (7 y 6 respectivamente). Necesitamos un nuevo BAPER después de 
la linea 0, asi que indicamos esto cambiando los datos 

de 00 00 a 00 3F 

y luego incluyendo el nuevo valor de BAPER después del valor de RINK, el 
cual queda igual. Los siete primeros octetos son ahora: 

08 - LINEAS BORDE 

07 06 - BINK, BAPER 
00 3F- DATOS PARA LINEA 0 
07 02 - BINK, BAPER 

El resto de los datos se tratan de la misma manera, sumando #3E al 
ùltimo valor para indicar "fin de datos", por lo cual los ùltimos 2 octetos cambian 

de E3 80 a E3 BE 

El listado final de los datos de borde compacto se encuentra en la etiqueta 
MELDAT del listado en ensamblador; por tanto, establecemos la imagen con 
la sencilla y ràpida secuencia: 

LD HL,MELDAT 
CALL EXPAND 
CALL ATTSET 
CALL HIRON 


Eie aqui el listado completo, llamado EXDEMO 


8C64 3E20 

8C66 32678C 


RUTINA DE DEMOSTRACION PARA EXPANDIR ATTSET Y BORPIC 
GENERA EL LOGOTIPO DE MELBOURNE 

32 LINEAS DEL CUADRO ESTARAN POR ENCIMA DEL TEXTO 


10 

20 
30 
40 
50 

60 EXDEMO 
70 

80 

90 ;OBSERVAR 63-32=31 PARA FLYBAK 

100 


LD 

LD 


A, 32 

(TPMRGN+ 1 ) , A 


183 







8C69 

3E1F 

1 10 



LD 

A,31 

8c6b 

326C8C 

120 



LD 

(FLYBAK+1),A 



130 

; 






140 

;CONSTRUIR DATOS BORDE EN BORSTR ... 



150 

; 




8c6e 

2 1 6e8C 

160 



LD 

HL,BORSTR 

8C7 1 

227 1 8C 

170 



LD 

(PICDAT),HL 



180 

; 






190 

; UTILIZANDO M EXPAND M EN DATOS BORDE COMPACTO 



200 

; 




8C74 

218A8C 

2 1 0 



LD 

HL,MELDAT 

8C77 

CD778C 

220 



CALL 

EXPAND 



230 

; 






240 

;AHORA PONER ATRIBUTOS DE PAPEL APROPIADAMENTE 



250 

: 




8C7A 

CD7A8C 

260 



CALL 

ATTSET 



270 

; 






280 

;ACTIVAR 

EL GENERADOR DE CUADRO DE BORDE 



290 

; 




8C7D 

CD7D8C 

300 



CALL 

HIRON 



310 

; 






320 

; GENERAR 

CUADRO 

DURANTE 5.12 SEGUNDOS 



330 

;OBSERVAR 

QUE B 

=0 DESDE HIRON 



340 

; 




8C80 

76 

350 

XLP 


HALT 


8C8 1 

10FD 

360 



DJNZ 

XLP 



370 

; 






380 

;VOLVER A 

SELECCIONAR IM 1 PARA BASIC 



390 

; 




8C83 

ED5 6 

400 



IM 

1 

8C85 

3E3F 

410 



LD 

A, # 3 F 

8C87 

ED47 

420 



LD 

I,A 

8C89 

C9 

430 



RET 




440 

; 






450 

;DATOS DE 

BORDE 

COMPACTO 



460 

; 8 LINEAS 

DE BORDE CON BINK BLANCO 

8C8A 

08 

470 

MELDAT 

DEFB 

8 



480 

? 






490 

; UNA 

CON 

BAPER 

AMARILLO 



500 

? 




8C8B 

07 

510 



DEFB 

7 

8C8C 

06 

520 



DEFB 

6 

8C8D 

20 

530 



DEFB 

32 

8c8e 

00 

540 



DEFB 

0 

8C8F 

3F 

550 



DEFB 

#3F 



560 

? 






570 

; DOS 

CON 

BAPER 

ROJO 



580 

? 




8C90 

07 

590 



DEFB 

7 

8C9 1 

02 

600 



DEFB 

2 

8C92 

20 

610 



DEFB 

32 

8C93 

00 

620 



DEFB 

0 

8C94 

00 

630 



DEFB 

0 

8C95 

20 

640 



DEFB 

32 

8C96 

41 

650 



DEFB 

#41 

8C97 

3F 

660 



DEFB 

#3F 



670 

? 






680 

; DOS 

CON 

BAPER 

VIOLETA 



690 





8C98 

07 

700 



DEFB 

7 

8C99 

03 

710 



DEFB 

3 

8C9A 

20 

720 



DEFB 

32 

8C9B 

63 

730 



DEFB 

#63 

8C9C 

00 

740 



DEFB 

0 

8C9D 

20 

750 



DEFB 

32 

8C9E 

77 

760 



DEFB 

#77 

8C9F 

3F 

770 



DEFB 

#3F 
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780 





790 

;Y TRES CON BAPER 

AZUL 



800 



8CA0 

07 

810 

DEFB 

7 

8CA 1 

01 

820 

DEFB 

1 

8CA2 

20 

830 

DEFB 

32 

8CA3 

5D 

840 

DEFB 

#5D 

8CA4 

00 

850 

DEFB 

0 

8CA5 

20 

860 

DEFB 

32 

8CA6 

49 

870 

DEFB 

#49 

8CA7 

00 

880 

DEFB 

0 

8CA8 

20 

890 

DEFB 

32 

8CA9 

E3 

900 

DEFB 

#E3 

8CAA 

BE 

910 

DEFB 

#BE 


Las rutinas proporcionadas en este capi'tulo tienen muchos usos posibles. 
Podrfa utilizar BORPIC para proporcionar unos gràfìcos excelentes en el margen 
superior y/o inferior (recuerde que puede utilizar unas lineas de borde tan reducidas 
corno de una fila de altura) utilizando una linea de borde de 192 fìlas de altura 
de un color en medio. Alternativamente y recordando que las rutinas no afectan 
al archivo de pantalla o a los atributos de INK, podria utilizar BORPIC, 
ATTSET y EXPAND para proporcionar un fondo espectacular cuando, por 
ej empio, se detiene un juego o muere el jugador. 

Concluiré este capitulo con sólo un ejemplo, produciendo una secuencia 
de cuatro imàgenes de los numeros 3, 2, 1 y 0, en ese orden. Està cuenta atràs 
debe utilizarse, por ejemplo, corno fondo para una imagen de texto de un sub¬ 
marino a punto de lanzar uno de sus misiles Polaris, en un espectacular efecto 
de tres dimensiones, por supuesto. 




o 

i 

i 

C\J 

1 

m 

o 

CUENTA 

ATRAS 



20 ; 





30 ; DATO DE 

BORDE 

COMPACTO 



40 ; 





50 ;IMAGEN " 

3 „ 




60 ; 



90D0 

08 

70 DAT3 

DEFB 

8 

90D1 

05 

80 

DEFB 

5 

90D2 

02 

90 

DEFB 

2 

90D3 

20 

100 

DEFB 

32 

90D4 

FF 

1 10 

DEFB 

#FF 

90D5 

80 

120 

DEFB 

#80 

90D6 

20 

130 

DEFB 

32 

90D7 

01 

140 

DEFB 

1 

90D8 

80 

150 

DEFB 

#80 

90D9 

20 

160 

DEFB 

32 

90DA 

01 

170 

DEFB 

1 

90DB 

80 

180 

DEFB 

#80 

90DC 

20 

190 

DEFB 

32 

90DD 

FF 

200 

DEFB 

#FF 

90DE 

80 

2 1 0 

DEFB 

#80 



220 



90DF 

20 

230 

DEFB 

32 

90E0 

FF 

240 

DEFB 

#FF 

90E 1 

80 

250 

DEFB 

#80 

90E2 

20 

260 

DEFB 

32 

90E3 

01 

270 

DEFB 

1 

90E4 

80 

280 

DEFB 

#80 

90E5 

20 

290 

DEFB 

32 

90E6 

01 

300 

DEFB 

1 

90E7 

80 

310 

DEFB 

#80 
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90E8 

20 

320 


DEFB 

32 

90E9 

FF 

330 


DEFB 

#FF 

9 OEA 

BE 

340 


DEFB 

#BE 



350 






360 

;IMAGEN 

"2" 




370 




9 OEB 

08 

380 

DAT2 

DEFB 

8 

9 OEC 

02 

390 


DEFB 

2 

90ED 

04 

400 


DEFB 

4 

90EE 

20 

410 


DEFB 

32 

9 OEF 

FF 

420 


DEFB 

#FF 

90F0 

80 

430 


DEFB 

#80 

9 OF 1 

20 

440 


DEFB 

32 

90F2 

01 

450 


DEFB 

1 

90F3 

80 

460 


DEFB 

#80 

90F4 

20 

470 


DEFB 

32 

90F5 

01 

480 


DEFB 

1 

90F6 

80 

490 


DEFB 

#80 

90F7 

20 

500 


DEFB 

32 

90F8 

FF 

510 


DEFB 

#FF 

90F9 

80 

520 


DEFB 

#80 

9 OF A 

20 

530 


DEFB 

32 

9 OFB 

FF 

540 


DEFB 

#FF 

90FC 

80 

550 


DEFB 

#80 

90FD 

20 

560 


DEFB 

32 

90FE 

CO 

570 


DEFB 

#C0 

9 OFF 

00 

580 


DEFB 

0 

9100 

20 

590 


DEFB 

32 

9101 

CO 

600 


DEFB 

#co 

9102 

00 

610 


DEFB 

0 

9103 

20 

620 


DEFB 

32 

9104 

FF 

630 


DEFB 

#FF 

9105 

BE 

640 


DEFB 

#BE 



650 

;IMAGEN 

„ 1 M 


9106 

08 

660 

DATI 

DEFB 

8 

9107 

07 

670 


DEFB 

7 

9108 

02 

680 


DEFB 

2 

9109 

20 

690 


DEFB 

32 

9 1 OA 

1C 

700 


DEFB 

#1C 

9 1 OB 

00 

710 


DEFB 

0 

91 OC 

20 

720 


DEFB 

32 

9 1 OD 

7C 

730 


DEFB 

#7C 

9 1 OE 

00 

740 


DEFB 

0 

9 1 OF 

20 

750 


DEFB 

32 

9110 

OC 

760 


DEFB 

12 

9111 

00 

770 


DEFB 

0 

91 12 

20 

780 


DEFB 

32 

9113 

OC 

790 


DEFB 

12 

9114 

00 

800 


DEFB 

0 

9115 

20 

810 


DEFB 

32 

9116 

OC 

820 


DEFB 

12 



830 

; 



9117 

00 

840 


DEFB 

0 

9118 

20 

850 


DEFB 

32 

9119 

OC 

860 


DEFB 

12 

91 1A 

00 

870 


DEFB 

0 

9 1 1B 

20 

880 


DEFB 

32 

91 1C 

7F 

890 


DEFB 

#7F 

91 1D 

80 

900 


DEFB 

#80 

91 1E 

20 

910 


DEFB 

32 

9 1 1F 

7F 

920 


DEFB 

#7F 

9120 

BE 

930 


DEFB 

#BE 



940 






950 

;IMAGEN 

"0" 




960 

? 



9121 

08 

970 

DATO 

DEFB 

8 

9122 

01 

980 


DEFB 

1 
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9123 

05 

990 

DEFB 

5 


9124 

20 

1000 

DEFB 

32 


9125 

7F 

1010 

DEFB 

#7F 


9126 

00 

1020 

DEFB 

0 


9127 

20 

1030 

DEFB 

32 


9128 

FF 

1040 

DEFB 

#FF 


9129 

80 

1050 

DEFB 

#80 


9 12 A 

20 

1060 

DEFB 

32 


9 12B 

C7 

1070 

DEFB 

#C7 


9 1 2C 

80 

1080 

DEFB 

#80 


9 1 2D 

20 

1090 

DEFB 

32 


9 1 2E 

CD 

1 100 

DEFB 

#CD 




1110 

: 



9 1 2F 

80 

1120 

DEFB 

#80 


9130 

20 

1 130 

DEFB 

32 


9131 

D9 

1 140 

DEFB 

#D9 


9132 

80 

1 150 

DEFB 

#80 


9133 

20 

1 160 

DEFB 

32 


9134 

FI 

1 170 

DEFB 

#F 1 


9135 

80 

1 180 

DEFB 

#80 


9136 

20 

1 190 

DEFB 

32 


9137 

FF 

1200 

DEFB 

#FF 


9138 

80 

12 10 

DEFB 

#80 


9139 

20 

1220 

DEFB 

32 


913A 

7F 

1230 

DEFB 

#7F 


9 13B 

3E 

1240 

DEFB 

#3E 




1250 

; 





1260 

;TABLA DE DIRECCIONES DE DATOS DE 

BORDE COMPACTO 



1270 

; 



913C 

D090 

1280 

BORTAB DEFW 

DAT3 


9 13E 

EB90 

1290 

DEFW 

DAT2 


9140 

0691 

1300 

DEFW 

DATI 


9142 

2191 

1310 

DEFW 

DATO 




1320 

; 





1330 

;RUTINA DE CUENTA ATRAS **** 




1340 

; UTILIZAR 32 FILAS DE TV SOBRE EL 

AREA DE TEXTO 



1350 

; 



9144 

3E20 

1360 

CNTDWN LD 

A,32 


9146 

324791 

1370 

LD 

(TPMRGN+1),A 


9149 

3E1F 

1380 

LD 

A,31 


914b 

324C91 

1390 

LD 

(FLYBAK+1),A 


91 4e 

2 1 4E9 1 

1400 

LD 

HL,BORSTR 


9151 

225191 

1410 

LD 

(PICDAT),HL 




1420 






1430 

•CONFIGURAR LA 

TABLA DE VECTORES, 

PERO NO ACTIVAR EL 



1440 

;GENERADOR DE 

CUADRO HASTA QUE LOS DATOS BORDE ESTEN 



OS 





1450 

; 



9154 

F3 

1460 

DI 



9155 

CD5591 

1470 

CALL 

HIRON 


9158 

213C91 

1480 

LD 

HL,BORTAB 


915B 

0604 

1490 

LD 

B,4 




1500 

; 





1510 

;TOMAR DIRECCION DE DATOS DE BORDE COMPACTO 



1520 

; 



9 15D 

5E 

1530 

NXTNUM LD 

E,(HL) 


9 15E 

23 

1540 

INC 

HL 


965F 

56 

1550 

LD 

D,(HL) 


9160 

23 

1560 

INC 

HL 


9161 

C5 

1570 

PUSH 

BC 


9162 

E5 

1580 

PUSH 

HL 




1590 

7 





1600 

; DEFINIR DATOS 

DE MARGEN Y ATRI. 

DE PAPEL 



1610 




9163 

EB 

1620 

EX 

DE, HL 


9164 

CD6491 

1630 

CALL 

EXPAND 


9167 

CD6791 

1640 

CALL 

ATTSET 



DEFINID 
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1650 

; 





16 6 0 

;PINTAR LA IMAGEN DURANTE 

UN SEGUNDO 



1670 

: 



9 1 6 A 

FB 

1680 

EI 



9 1 6 b 

0650 

1690 

LD 

B,#50 


9 1 6D 

76 

1700 

PSE HALT 



9 1 6e 

1 OFD 

1710 

DJNZ 

PSE 


9170 

F3 

1720 

DI 





1730 

; 





1740 

;SIGUIENTE IMAGEN 




1750 

; 



9171 

E 1 

1760 

POP 

HL 


9172 

CI 

1770 

POP 

BC 


9173 

1 0E8 

1780 

DJNZ 

NXTNUM 




1790 

; 





1800 

;VOLVER A SELECCIONAR IM 1 

PARA BASIC 



1810 

; 



9175 

3E3F 

1820 

LD 

A , # 3 F 


9177 

ED47 

1830 

LD 

I, A 


9179 

ED5 6 

1840 

IM 

1 


917B 

FB 

1850 

EI 



9 1 7C 

C9 

1860 

RET 
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Apéndice A 

Lista de las 
principales rutinas 


Nombre Función/Descripción Pag. 

DF-LOC Encuentra la localización de la celdilla en el archivo de 

pantalla. 15 

CLS-DF Borra el archivo de pantalla. 15 

ATTLOC Encuentra la localización de la celdilla en el archivo de atri- 

butos. 16 

DF-ATT Convierte la dirección del archivo de pantalla en la corres- 

pondiente del de atributos. 17 

ATT-DF Conversión de archivo de atributos a archivo de pantalla. 17 

LOCATE Combinación de DF-LOC y ATTLOC, también encuentra 

el valor del atributo. 17 

CLSATT Borra el archivo de atributos con un octeto. 18 

CLS Combinación de CLS-DF y CLSATT. 19 

PRESTI Rutina de IMPRESION de propòsito generai. 26 

PLOT Dibuja un punto en cualquier lugar. 30 

DRAW Traza una linea recta entre dos puntos. 33 

ATTSTR Copia el archivo de atributos en la parte superior de la me¬ 
moria. 41 

BLEND Mezcla los dos archivos de atributos. 41 

KFTND1 Devuelve el valor de la teda que se està pulsando. 54 

KTEST1 Comprueba una teda, dado su valor. 55 

INT Inicializa IM2 y su tabla de vectores. 63 
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INTERP Procesador de impresión controlado por interrupciones con 

generador de horizonte de pantalla completa. 78 

INT1 Establece tabla de vectores para IM2 e inicializa INTERP.... 89 

HRZST1 Pone nivel de horizonte de pantalla completa. 94 

HRZMV1 Mueve el horizonte de pantalla completa hacia arriba o hacia 

abajo potpixels . 96 

HRZNMK Rutina principal de control de horizonte. 99 

HRZCOL Pone los colores de encima y debajo del horizonte. 101 

HIPRINT Envfa un caràcter al buffer del procesador de impresión. 106 

ALTRBF Modifica la longitud de la parte de "sólo lectura" del buffer 

del procesador de impresión (RO-buffer). 108 

SRVR1 Trabajos de servicios de los valores de los atributos de las 

entradas del RO-buffer. 109 

SRVR2 Envia datos al RO-buffer.Ili 

CLOR Borra el OR-mapa. 118 

ORCHK Comprueba si se debe OR-imprimir sobre una celdilla. 118 

PADOUT Borra la primera imagen de los datos del sprìte "pelado" 

anadiendo blancos.133 

SPREX Forma imàgenes "desplazadas" multiples de datos del sprìte 

generados por PADOUT. 135 

SPRINT Rutina de impresión de sprìtes. . 139 

SPRMV Rutina principal de control de sprìte . 147 

HIRES Generador de color en alta resolución. 162 

HIRON Establece tabla de vectores, IM2, y salta a HIRES. 164 

BORPIC Generador de cuadro de borde controlado por interrupciones 172 

ATTSET Pone atributos de acuerdo con los datos para BORPIC. 176 

EXPAND Expande los datos compactos del cuadro generado por 

ATTSET y BORPIC. 180 
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Apéndice B 

Ensambladores 
y monitores- 
desensambladores 
recomendados 


"DEVPAC 3" de Hisoft 

... està formado por el ensamblador "GENS 3" y el monitor/desensam- 
blador "MONS 3". Las rutinas de este libro se desarrollaron sobre "GENS 3". 
Hay una versión compatible para microdrive. "GENS 3" tiene una longitud de 
7K y, por tanto, es muy pràctico para utilizar en su Spectrum de 48K. 

Hisoft 

13 Gooseacre 
Cheddington 
Leighton Buzzard 
Beds. 

LU7 OSR Importado por YENTAMATIC. 


Oxford Computer Publishing (OCP) 

... proveen con dos programas separados para 16 y 48K. Se trata de "Full 
Screen Editor/Assembler" y "Machine Code Test Tool": un tutor y monitor- 

debugger. 
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Oxford Computer Publishing Ltd. 

4 High Street 
Chalfont St. Peter 
Bucks 

SL9 9QB Importado por ABC-SOFT. 

Picturesque 

... hacen una pareja potente de utilidades llamadas "Editor Assembler" y 
"Spectrum Monitor", siendo la ùltima también un desensamblador, y ambas para 
los Spectrums de 16 ó 48 K. 

Picturesque 
6 Corkscrew Hill 
West Wickman 
Kent 
BR4 9BB 

Sinclair Research 

... una comparila que deberia serie familiar, publica el "ZEUS Assembler" 
y "Monitor/Disassembler", ambos para el Spectrum de 48K y escritos original¬ 
mente por Crystal Computing Limited. 

Sinclair Research 
Stanhope Road 
Camberley 
Surrey 
GUI 5 3BR 

Lecturas recomendadas 

A lo largo de este libro habrà observado que se hace referencia a los 
"T-estados" y a los dempos empleados por diversas instrucciones en su eje- 
cución. Si desea encontrar un desglose total de los tiempos de cada instruc- 
ción del Z-80, su código de operación y su efecto sobre las banderas, puede 
recurrir a lo que muchas personas consideran una gufa completa del Z-80, 
Trogramming The Z-80 , de Rodnay Zaks, publicado por Sybex. 

Este libro merece la pena sin duda alguna corno gufa de referencia, aunque 
es algo caro. 

Otro libro que no debe faltar a ningun buen programador en lenguaje 
màquina de Spectrum es The Complete Spectrum ROM Disassembly , del Dr. Ian 
Logan y el Dr. Frank O’Hara, publicado por Melbourne House. 

Un listado en ensamblador, totalmente explicado, de la ROM, ocupa por 
completo 236 pàginas del libro. Este listado deberà estar a su alcance cuando 
necesite estudiar corno ha sido programada una rutina completa de la ROM, 
o qué valores se necesita para su utilización. 
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<LTe has preguntado qué hay tras el lenguaje màquina de alto nivel de 
muchos de los juegos con mas éxito para el Spectrum? 


LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM es una colección 
de rutinas que te mostraràn corno conseguir efectos espectaculares con tu 
Spectrum, explotando al Z80 hasta el limite de sus posibilidades. 

En el libro encontraràs una valiosisima información y muchas rutinas que 
nunca se han publicado: 

— Horizonte de pantalla completa: te permitirà cambiar el color de 

cualquier punto del borde o la pantalla y mover libremente el horizonte. 



— Animación perfecta de «sprites», basada en interrupciones: còrno mover 
«sprites» «pixel» a «pixel» sin parpadeo. 

— Creación de imagenes a toda pantalla. 

— Areas de color en alta resolución: para que puedas crear àreas 
coloreadas con ocho veces la resolución de color normal del Spectrum. 

LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM es un libro 
pensado para los que ya tienen una cierta experiencia en lenguaje 
ensamblador, a pesar de lo cual todos los listados y las técnicas de diseno 
empleadas se explican detalladamente. Las rutinas descritas son de calidad 
profesional y aumentan dràsticamente la rapidez de los programas donde se 
utilizan. 

LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM proporciona una 
panoràmica especialmente util de la programación del Spectrum, facilitando 
el aprendizaje de técnicas sofisticadas y el uso pràctico de las rutinas del 
libro, que estàn disenadas para que puedan usarse e incorporarse con 
facilidad a los programas propios. 

iSi quieres ver realmente la rapidez del código màquina..., adelante! 






